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1  INTRODUCTION 


The  purpose  of  this  report  is  to  develop  a  dynamic  model  of  non-uniform  beams  within  the  MATLAB® 
software  environment  (The  MathWorks,  Inc.  /  24  Prime  Park  Way  /  Natick,  MA  01760-1500).  This  will 
leverage  MATLAB®'s  capability  in  dynamic  system  design,  analysis,  simulation,  and  control  formulation. 
The  current  application  for  this  modeling  is  the  dynamic  analysis  of  the  XM291  gun  system,  exclusive  of 
the  firing  event.  However,  the  formulation  of  the  modeling  was  executed  in  a  generic  form  to  facilitate 
broad  applicability  to  non-uniform  beam  dynamics. 

Modeling  of  gun  systems  using  the  Euler-Bemoulli  finite  element  technique  to  generate  the  second-order 
symmetric  equations  of  motion  with  subsequent  conversion  to  the  first-order  state-space  domain  has  been 
accomplished  by  at  least  two  previous  authors.  [1,2]  This  approach  does  not  lend  itself  to  the  analysis  of 
the  firing  event  due  to  the  dependence  of  the  ballistic  loading  on  spatial  derivatives  of  the  mode-shape  and 
continuity  of  load  application.  For  this  reason  custom  modeling  techniques  have  been  developed  to 
address  these  issues.  [3, 4]  Lagrangian  formulation  of  the  second-order  equations  of  motion  with 
subsequent  conversion  to  state-space  has  been  accomplished  for  beams  of  uniform  cross-section  to 
promote  analytic  investigation  of  dynamic  control  issues  without  the  burden  of  non-uniform  beam 
approximation.  [5] 

This  report  will  document  the  detailed  development  of  the  dynamic  modeling  approach  and  conduct 
several  case  studies  including  two  of  the  XM291  gun  system  as  an  elastic  beam.  The  computer  files 
described  in  this  report  are  listed  in  their  entirety  in  the  appendix. 

2  THE  DYNAMIC  MODEL 

2.1  THE  FINITE  ELEMENT  BEAM  MODELING  METHOD 

The  means  chosen  to  dynamically  model  non-uniform  beams  is  the  finite  element  method.  This  route  has 
been  chosen  to  provide  a  well  known  formulation  that  affords  the  opportunity  to  increase  or  decrease  the 
complexity  and  subsequent  accuracy  of  the  discrete  model  approximation  in  a  robust  and  predictable 
manner.  This  allows  the  analyst  to  conduct  preliminary  studies  using  low-order  models  to  gain  a 
perspective  of  gross  dynamic  properties  that  efficiently  provides  a  focus  to  later  conduct  high  accuracy 
analysis  using  larger  models. 

The  finite  element  method  employed  in  this  report  utilizes  the  Euler-Bemoulli  beam  approximation  and 
the  Hermite-cubic  interpolation  functions  to  form  the  inertial  and  stiffness  matrices  of  the  undamped 
second-order  symmetric  equations  of  motion.  [6, 7]  This  is  achieved  by  approximating  the  continuous 
non-uniform  beam  as  an  assemblage  of  a  finite  number  of  discrete  elements.  Within  each  discrete  element, 
the  interpolation  functions  are  used  to  approximate  the  interior  deformation.  At  the  boundary  between  two 
adjacent  elements,  called  a  node,  continuity  of  lateral  displacement  and  slope  are  imposed.  When 
assembled,  the  resulting  finite  element  model  dynamics,  governed  solely  by  the  node  states,  closely 
approximates  the  dynamics  of  the  non-uniform  beam.  In  the  limit,  Simpson’s  hypothesis  states  that  if  a 
sufficient  number  of  permissible  finite  elements  are  employed,  the  finite  element  modeling  and  the 
continuum  modeling  become  equivalent.  [8] 


1 


2.1.1  LIMITATIONS  OF  THE  HNITE  ELEMENT  MODELING  METHOD 

The  Euler-Bemoulli  beam  element  used  does  not  model  shear  effects,  nor  the  cross-sectional  rotational 
inertia  of  individual  elements  that  are  included  in  the  more  advanced  — Timoshenko —  beam  equation.  [6] 
These  un-modeled  dynamics  play  an  increasing  role  as  the  beam's  being  modeled  become  less  slender,  and 
as  the  frequency  response  of  interest  increases.  For  gun  geometries,  it  has  been  shown  that  these  effects 
are  relatively  small  in  the  dynamic  region  of  interest,  and  may  be  neglected  for  most  analysis.  [9]  This 
method  also  neglects  to  model  axial  mode  dynamics  such  as  would  be  experienced  by  the  barrel,  as  a  rod, 
in  axial  tension  and  compression.  This  effect  could  readily  be  added,  and  is  outlined  in  the  references 
given. 

Finally,  the  Euler-Bemoulli  formulation  only  models  transverse  vibrations  in  one  plane,  such  as  the 
vertical  or  horizontal  planes  of  motion.  Implicit  in  this  assumption,  is  that  the  transverse  motion  of  the 
beam  in  its  two  orthogonal  planes  will  be  decoupled,  allowing  the  analyst  to  consider  the  dynamics  in  the 
two  separate  planes  independently. 

2.1.2  EQUATION  OF  MOTION  FOR  A  SINGLE  FINITE  ELEMENT 


The  equation  of  motion  for  a  single  finite  element  will  require  the  formation  of  two  matrices  to  represent 
the  inertial  and  stiffness  parameters  in  a  form  that  is  a  function  of  the  elements  nodal  lateral  displacement 
and  slope  and  their  second  temporal  derivatives.  Since  a  single  Euler-Bemoulli  beam  element  has  two 
nodes,  one  at  each  end,  the  inertial  and  stiffness  matrices  will  be  four -by-four  in  size.  In  order  to  facilitate 
the  modeling  of  non-uniform  beams,  the  formation  of  these  matrices  will  explicitly  use  the  Hermite-cubic 
interpolation  functions  as  listed  below  where  x  is  the  linear  position  along  the  element  and  h  is  its  total 
length:  [6,  7] 


4>2W 


(c) 

id) 


(1) 


The  mass  matrix  can  then  be  evaluated  by  integrating  the  linear  density,  p(x),  with  the  interpolation 
functions  as  follows:  [6,  7] 
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M  = 


(2) 
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Similarly  the  stiffness  matrix  may  be  formed  from  the  material's  elasticity,  E(x),  its  second  areal  moment, 
I(x),  and  the  second  spatial  derivative  of  the  interpolation  functions:  [6,  7] 

h  h  h  h 
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The  generalized  coordinate  vector  and  its  second  temporal  derivative  are:  [6,  7] 
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y  Denotes  Lateral  Displacement. 
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0  Denotes  Slope, 


I  ^ 


0  Denotes  Left  Node, 
h  Denotes  Right  Node, 
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n  Denotes 


dt^ 
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The  generalized  forces  may  be  found  in  one  of  two  ways.  First,  the  distributed  force,  p(x),  can  be 
explicitly  integrated  with  the  interpolation  polynomials.  [6, 7]  Second,  it  can  be  inferred  by  reversing  the 
reaction  forces  that  would  be  experienced  by  a  simply  supported  beam  element  subjected  to  the  loading 
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along  its  span.  [10,  1 1]  we  have  chosen  to  implement  the  later  approach  in  the  m-file,  <fem_force.m>,  but 
we  will  display  the  former  approach  below: 
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The  equation  of  motion  for  the  undamped,  Euler-Bemoulli  beam  element  can  now  be  written  by 
combining  equations  (2)  -  (5):  [6,  7] 

M4'  +  Kq.  =f  (6) 


The  approximate  interior  deflections  may  be  determined  by  evaluating  the  interpolation  functions  of  (1), 
augmented  by  the  generalized  coordinate  vector  of  (4)  as  follows:  [11] 

y(x)  =  c|)j(x)y|^.o  +  4)2«0|,.o  +  4>3W>’L.a  +  4>4W9L-;,  (7) 


2.1.3  COMBINED  MOTION  OF  MULTIPLE  HNITE  ELEMENTS 

The  equations  of  motion  of  adjacent  finite  elements  are  coupled  together  by  the  imposed  continuity  of 
lateral  displacement  and  slope  at  the  intersecting  nodes.  Consider  a  simple  two  element  system  composed 
of  element  one  of  length  hj  and  element  two  of  length  h2  joined  in  the  middle.  Inspection  of  the 
generalized  coordinate  vectors  reveals  that  the  later  two  generalized  coordinates  of  element  one,  and  the 
first  two  generalized  coordinates  of  element  two,  represent  the  same  boundary  condition.  Thus  the  number 
of  generalized  coordinates  required  to  represent  the  two  element  structure  has  been  reduced  from  eight  to 
six,  with  a  total  of  three  nodes.  Numbering  the  left-free  node,  one,  the  middle  node,  two,  and  the  right  free 
node,  three,  and  superscripting  the  elemental  matrices  with  the  element  number,  we  can  combine  the  mass 
and  stiffness  matrices  and  the  force  and  generalized  coordinate  vectors  as  follows:  [6, 7] 
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Note  that  we  have  adopted  a  more  convenient  subscripted  naming  convention  for  the  generalized 
coordinates  and  generalized  force  vector  from  the  nodal  reference.  The  equation  of  motion  (6)  is  still  valid 
for  this  larger,  six-by-six,  system  of  linear  equations. 

An  indefinite  number  of  additional  elements  can  be  combined  in  the  same  manner.  The  number  of 
generalized  coordinates  will  be  twice  the  number  of  nodes,  which  equals  the  total  number  of  elements  plus 
one  for  a  free-free  beam  model. 

It  is  important  to  note  that  the  inertial  and  stiffness  matrices  are  symmetric.  This  has  important 
implications,  on  the  complex  form  of  the  roots  of  the  differential  equations,  that  cancels  any  possible 
imaginary  content  in  the  generalized  coordinates.  Thus,  the  symmetry  of  these  matrices  prevents  the 
modeling  from  becoming  non-physically  realizable.  This  will  be  elaborated  on  in  section  3.5.2  in  the 
context  of  section  3.2. 
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2.2  MATLAB®  REALIZATION  OF  THE  FINITE  ELEMENT  BEAM  MODEL 

MATLAB  m-files  were  written  to  implement  the  finite  element  be^m  model  of  the  previous  section.  M- 
nies  are  user  written  program  code  in  the  MATLAB®  language  that  provide  extensibility  to  MATLAB®. 
[12]  All  of  the  m-files  written  are  function  files.  Function  files  provide  for  the  passing  of  arguments  from 
other  work-spaces  to  the  local  function  file  work-space  and  back  again.  This  prevents  the  over  use  of  one 
work-space,  thus  reducing  confusion  of  the  available  variables  and  the  available  variable  names.  Function 
files  are  also  said  to  be  compiled  within  MATLAB®,  thus  increasing  efficiency.  Finally,  this  format 
provides  for  the  development  of  on-line  documentation  describing  the  function  file  and  its  operation.  All 
explicit  MATLAB  functions  in  addition  to  the  m-files  and  variables  are  enclosed  by  angle  brackets  to 
distinguish  them  from  regular  text. 

2.2.1  UNITS 

Any  consistent  system  of  units  may  be  used  by  this  software.  Automatic  label  generations  assume  that  the 
linear  frequencies  computed  are  in  units  of  Hertz.  The  meter-kilogram-second  or  international  system  of 
units  (SI)  is  used  in  the  input  m-files.  The  poundal  or  slug  consistent  English  systems,  or  the  centimeter- 
gram-second  (CGS)  system  could  also  be  used. 

2.2.2  INPUT  BEAM  GEOMETRY  AND  MATERIAL  PROPERTIES 

The  first  requirement  to  realizing  the  finite  element  model  of  a  beam  is  to  input  the  geometry  and  material 
properties.  The  required  form  of  this  data  will  consist  of  four  vectors,  of  equal  length,  representing  values 
of  the  beam  associated  with  a  fine-resolution  and  equidistant  sampling  of  the  axial  position,  and  the 
respective  linear  density,  stiffness,  and  non-beam  linear  density  values.  (The  non-beam  density  values 
provide  for  the  incorporation  of  extraneous  masses  whose  elasticity  is  supposed  to  play  a  negligible  role  in 
the  beam  dynamics,  but  whose  inertia  can  not  be  ignored.)  For  the  case  of  the  XM291  gun  barrel,  the 
geometric  information  (inner  and  outer  radii)  was  available  off  of  a  finish-machine  drawing  in  a  format 
that  lent  itself  to  sampling  every  millimeter  from  an  axial  position  of  one  millimeter  to  the  length  of  the 
barrel.  From  the  geometric  information,  the  cross-sectional  stiffness  of  the  barrel  at  each  axial  position 
could  readily  be  computed  using  MATLAB®'s  array  multiplication  feature,  and  Young's  modulus  for  the 
gun  steel.  The  non-beam  masses,  such  as  the  muzzle  reference  mount  could  then  be  included.  An  effort 
was  made  to  distribute  the  non-beam  masses  over  a  significant  axial  length  to  prevent  large  fictitious 
spikes  in  the  linear  density  values.  In  the  absence  of  a  non-beam  linear  density  at  a  given  axial  location, 
this  data  vector  contains  zeros  to  maintain  a  one-to-one  correspondence  with  the  axial  position  vector. 


The  function  file  written  to  generate  the  four  matrices  for  the  XM291  gun  system  is  named 
<geomf_XM291.ra>.  The  names  of  the  four  data  vectors  are  <spatial>,  <lden>,  <1EI>,  and  <lnbden> 
respectively.  The  length  of  the  vectors  is  6,750  which  provides  ample  resolution  of  the  geometry. 

In  addition  to  the  four  data  vectors  the  file  also  produces  a  pair  of  two-by-two  matrices  formulated  to 
allow  for  external  rigid  masses  to  be  constrained  to  the  free  node's  generalized  coordinates  at  either  end  of 
the  beam.  This  was  required  to  allow  for  the  incorporation  of  masses  beyond  the  ends  of  the  beam,  such  as 
the  breech,  which  will  be  discussed  in  section  2.3.2. 
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An  additional  output  of  <geonif_XM291.m>  is  a  matrix,  <gm>,  whose  two  columns  consist  of  the  inner 
and  outer  radii  respectively.  This  is  useful  for  later  plotting  and  animation. 

A  final  output  of  <geomf_XM291.m>  is  an  option  for  automatic  plot  generation,  with  an  input  title  label, 
that  depicts  the  geometry,  non-beam  mass  location,  total  beam  mass,  total  non-beam  mass,  and  the  linear 
density  and  stiffness  as  a  function  of  the  axial  position  vector.  This  output  is  particularly  useful  for  input 
data  validation.  Its  use  is  demonstrated  for  the  XM291  in  section  4.1.2  and  for  a  sixty-millimeter  hybrid 
gun  in  section  4.3.1. 

In  an  effort  to  reduce  input  errors,  and  facilitate  future  input  file  generation,  three  support  function  files 
were  written.  The  first,  <geom_seg.m>,  converts  the  measurements  of  radii  at  two  axial  locations  into 
uniform  tapers  that  correspond  to  the  axial  position  vector.  The  second,  <geom_nbseg.m>,  distributes  the 
non-beam  mass  over  a  specified  portion  of  the  axial  position  vector.  The  third,  <geom_check.m>,  verifies 
the  one-to-one  correspondence  between  the  axial  position  vector  and  any  of  the  three  other  data  vectors.  It 
also  checks  to  be  sure  that  the  axial  position  vector  is  evenly  spaced  from  the  first  increment  to  the  final 
length.  Finally,  it  checks  to  be  sure  all  data  values  are  positive,  and  it  imposes  column  structure  on  the 
vectors.  This  third  file  is  used  throughout  the  modeling  software  to  check  the  validity  of  input  data. 

2.2.3  GENERATION  OF  A  HNITE  ELEMENT  MESH 

Once  the  four  data  vectors  are  available  for  finite  element  formulation,  they  must  be  broken  up  into  the 
desired  number  of  elements.  Further,  it  will  become  extremely  important,  as  the  modeling  effort 
continues,  to  place  nodes  at  specific  locations  where  external  forces  may  interact  with  the  beam  model. 
This  is  particularly  true  of  the  trunnion  location,  about  which  the  gun  barrel  pivots  as  it  is  elevated.  The 
function  file  <fem_mesh.m>  was  written  to  perform  the  function  of  automatic  node  location. 

The  <fem_mesh.m>  file  uses  the  four  input  data  vectors,  a  vector  of  imposed  node  locations,  and  the 
desired  number  of  finite  elements  to  formulate  a  meshing  vector.  Like  the  function  <geomf_XM291.m>, 
an  optional  argument  automatically  generates  a  plot  of  the  final  mesh,  as  a  function  of  the  axial  position 
vector  and  the  meU'ic  used  to  divide  up  the  elements  that  is  discussed  below.  The  use  of  this  option  is 
demonstrated  in  section  4.1.3.  It  also  utilizes  the  <geom_check.m>  file  to  validate  the  input  data. 

In  order  to  automate  the  process,  a  metric  had  to  be  identified  that  would  provide  a  measure  of  desired 
uniformity  between  elements.  In  other  words,  a  quantitative  measure  to  be  used  to  evenly  space  the  node 
locations.  Axial  position  was  not  chosen  because  it  would  not  compensate  for  differences  in  stiffness  and 
density  between  elements.  The  ratio  of  stiffness  to  linear  density  — along  the  data  vectors —  was  chosen 
to  increase  the  meshing  density  along  portions  of  the  beam  where  the  stiffness  was  low,  and  the  inertia  was 
high,  which  would  lead  to  increased  dynamic  activity  in  the  lower  modes  of  interest.  Formulation  of  this 
metric  was  greatly  facilitated  by  the  built-in  MATLAB®  command,  <cumsiun>.  [12] 

Once  a  metric  is  identified,  the  meshing  becomes  a  four  stage  process.  First,  the  imposed  node,  locations 
must  be  determined.  Second,  the  imposed  nodes  form  an  integer  number  of  super  elements  between  them. 
Thus,  the  number  of  finite  elements  that  remain  after  the  imposing  the  nodes  must  be  determined.  These 
are  called /ree  elements,  because  they  are  the  elements  that  may  be  placed  by  the  metric.  Third,  the  ideal 
integer  number  of  free  elements  allotted  to  each  super  segment  must  be  determined  from  the  metric. 
Finally,  each  super  element  must  be  broken  up  by  the  metric  to  include  its  allotted  number  of  free 
elements. 
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In  addition  to  the  above  routine,  three  checks  are  executed  to  ensure  that  the  number  of  nodes  assigned  to 
any  span  of  the  beam  does  not  exceed  the  spatial  resolution  of  the  axial  position  vector.  (To  do  so  would 
result  in  collocated  nodes.)  If  this  situation  is  detected,  <while>  loops  [12]  are  employed  to  identify  spans 
of  the  beam  that  could  support  additional  nodes,  and  redistribute  the  collocated  nodes  as  necessary.  Since 
these  loops  are  dangerous  in  the  sense  that  a  small  programming  error  could  result  in  an  infinite  loop,  a 
warning  is  written  to  the  screen  that  the  loop  has  been  entered.  In  general,  this  situation  is  only 
encountered  when  a  non-uniform  beam  tapers  down  to  a  point,  which  often  leads  to  the  stiffness  going  to 
zero  faster  than  the  density  as  in  the  case  presented  in  section  4.4.1. 

2.2.4  ELEMENTAL  MASS  AND  STIFFNESS  MATRIX  FORMULATION 

Realization  of  the  elemental  mass  and  stiffness  matrices  requires  the  computation  of  equations  (1),  (2),  and 
(3)  for  a  given  element.  This  was  achieved  using  the  two  files,  <fem_interp.m>  and  <fem_beamel.m>,  to 
numerically  compute  the  interpolation  functions  and  execute  the  matrix  element  integrations  respectively. 
Both  files  use  the  <geora_check.m>  file,  discussed  in  section  2.2.2,  to  validate  input  data  format  which 
consists  of  three  data  vectors:  axial  position,  combined  beam  and  non-beam  linear  density,  and  cross- 
sectional  stiffness.  Like  the  axial  position  vector  of  the  entire  beam,  the  elemental  position  vector  begins 
at  the  first  increment  of  measure  {near  zero),  and  continues  to  the  total  length  of  the  element,  h. 

The  interpolation  function  of  equation  (1)  and  their  second  spatial  derivatives  as  required  by  equation  (3) 
were  explicitly  generated  using  the  Symbolic  Math  TOOLBOX  [13]  although  they  can  readily  be 
evaluated  by  hand.  These  symbolic  equations  are  then  numerically  evaluated  at  each  axial  position  along 
the  element  using  MATLAB®  's  array  operators  and  the  <eval>  command.  [12]  The  output  of 
<fem_interp.m>  consists  of  two  matrices  consisting  of  four  columns,  one  for  each  interpolation  function, 
with  the  row  elements  forming  a  one-to-one  correspondence  with  the  axial  position  vector.  The  first 
matrix  includes  the  interpolation  functions,  while  the  second  matrix  contains  their  second  spatial 
derivatives. 

The  file,  <fem_beamel.m>,  numerically  evaluates  the  integrals  of  equations  (2)  and  (3)  as  a  simple 
matrixAnner  product  scaled  by  the  sampling  resolution.  (This  is  equivalent  to  a  Riemann  sum  of  the 
multiplied  sampled  data  vectors.)  This  works  well  as  long  as  the  length  of  the  interpolation  vectors  are 
long  enough  for  the  integration  errors  to  become  small.  This  accuracy  issue  is  enforced  by  expanding  the 
input  vectors,  using  a  zero-order-hold  approach  while  increasing  the  spatial  resolution,  if  the  length  of 
interpolation  functions  would  otherwise  fall  below  a  set  value.  We  have  chosen  to  set  the  value  at  fifty. 

For  pragmatic  reasons,  if  the  data  expansion  is  required,  the  new  data  vector  length  is  the  minimum  integer 
multiple  of  the  former  length  that  will  meet  or  exceed  the  set  minimum  length.  (Note  that  this  condition 
may  be  an  indication  that  a  finer  resolution  of  the  input  data  is  required.  This  is  not  addressed  by  the  zero- 
order-hold  data  expansion.  This  is  especially  true  if  it  is  occurring  with  a  relatively  small  number  of  finite 
elements.) 

The  complete  output  of  these  two  files  are  numerical  approximations  of  the  four-by-four  inertial  and 
stiffness  matrices  of  equations  (2)  and  (3). 
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2.2.5  SYSTEM  MASS  AND  STIFFNESS  MATRIX  FORMULATION 


Once  the  elemental  mass  and  stiffness  matrices  have  been  formed,  they  must  be  combined  as  in  equations 
(8)  and  (9)  to  form  the  integrated  system  model.  This  is  achieved  by  the  <fem_form.m>  file.  The  inputs 
to  this  file  consist  of  the  four  raw  data  vectors  of  axial  position  and  corresponding  linear  density,  cross- 
sectional  stiffiiess,  and  non-beam  density.  Further,  this  file  requires  the  node  location  vector  (mesh) 
generated  by  the  file  <fem_mesh.m>.  Finally,  a  provision  is  made  for  the  automatic  generation  of  images 
of  the  matrices  for  qualitative  model  validation  if  an  optional  argument  is  passed.  The  use  of  this  feature 
is  demonstrated  in  section  4.1.4. 

In  addition  to  the  use  of  the  m-file  <geom_check.m>,  discussed  in  section  2.2.2,  to  validate  the  four  data 
vectors,  a  separate  file,  <fem_node_check.m>,  was  written  to  validate  the  node  vector  with  respect  to  the 
axial  position  vector  prior  to  finite  element  formulation.  This  file  insures  that  the  node  locations  fall 
within  the  beam  geometry,  and  that  no  node  locations  are  repeated.  Finally,  it  imposes  a  sorted  column 
structure  on  the  vector.  This  file  also  uses  the  <geom_check.m>  file  to  insure  that  the  axial  position  vector 
is  valid. 

The  m-file  <fem_form.m>  first  adds  the  beam,  and  non-beam  mass  vectors  into  a  single  combined  linear 
density  vector.  It  then  sequentially  breaks  up  the  beam  into  the  finite  elements  specified  by  the  node 
coordinate  vector.  The  elemental  mass  and  stiffness  matrices  are  formulated  using  the  <fem_beamel.m> 
and  <fem_interp.m>  files  described  in  section  2.2.4. 

For  efficiency,  the  system  mass  and  stiffness  matrices  are  initialized  as  square  matrices,  filled  with  zeros, 
of  their  final  n-by-n  size  where  n  is  the  number  of  generalized  coordinates.  (The  number  of  generalize 
coordinates  is  twice  the  number  of  nodes,  including  the  free  ends.  Also  note  that  the  total  number  of 
nodes  is  equal  to  one  plus  the  number  of  elements  for  the  free-free  beam  model.)  The  system  matrices  are 
sequentially  filled  by  the  elemental  matrices,.  The  intersections  of  the  elemental  matrices,  as  shown  in  the 
middle  two-by-two  sub-matrices  of  M  and  K  of  equations  (8)  and  (9),  are  achieved  by  adding  each  new 
elemental  matrix  to  the  system  matrix  as  it  is  being  formed.  This  implementation  cascades  the  addition  of 
the  elemental  matrices  down  the  main  diagonal  of  the  system  matrices. 

2.2.6  EQUIVALENT  NODAL  FORCE  VECTOR  FORMULATION 

The  system  force  vector  of  equation  (10)  is  computed  in  a  manner  similar  to  the  formulation  of  the  system 
matrices  from  the  elemental  matrices.  The  file,  <fem_force.m>,  that  realizes  the  system  force  vector 
requires  four  input  vectors.  The  first  vector  consists  of  the  axial  position  vector.  The  second  two  vectors 
consist  of  the  point  lateral  force  and  point  moment  vectors  that  correspond  one-to-one  with  the  axial 
position  vector  in  complete  analogy  with  linear  density  vector.  Distributed  loads  are  represented  by  a 
series  of  equivalent  point  loads,  down  the  force  vector  in  a  straight  forward  manner.  The  final  required 
vector  is  the  meshing  vector  of  node  index  locations  generated  by  <fem_mesh.m>.  An  optional  input 
provides  for  explicit  printing  of  the  resulting  system  vector. 

First  the  file  computes  the  generalize  forces  and  moments  for  the  arbitrary  loading  of  individual  elements. 
As  stated  in  section  2.1.2,  the  method  used  is  to  compute  and  sum  the  reverse  reaction  forces  that  would  be 
experienced  by  a  simply  supported  beam  element  subjected  to  the  point  loads  applied  by  each  input  force 
value  at  its  associated  axial  position. 
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T^e  file  then  overlaps  the  generalized  forces  of  adjacent  elements  at  mutual  node  locations,  in  a  manner 
similar  to  the  cascading  of  the  elemental  matrices  down  the  system  matrices  as  described  in  section  2.2.5. 
This  creates  the  generalize  force  vector  as  shown  in  equation  (10). 

This  completes  the  numerical  formulation  of  the  finite  element  beam  model  governed  by  the  dynamics  of 
equation  (6)  with  the  full  system  inertial  and  stiffness  matrices. 


2.3  CONSTRAINT  OF  THE  FINITE  ELEMENT  BEAM  MODEL 

The  finite  element  model  developed  by  equations  (1)  through  (10)  results  in  the  Ifee-ffee  configuration. 
This  means  that  the  beam  is  not  constrained  to  an  inertial  reference  in  any  way.  Most  beams  are 
constrained  to  an  inertial  reference  in  some  manner.  For  the  case  of  the  XM291  gun  barrel,  one 
approximation  would  be  to  constrain  its  vertical  beam  vibrations  at  the  gun  trunnions  (horizontally 
opposed  pivot  points),  and  at  the  elevation  mechanism  (the  linear  actuator  that  applies  vertical  forces  to 
the  breech  end  of  the  barrel,  behind  the  trunnions).  Unless  otherwise  stated,  we  will  assume  that  the 
elevation  mechanism  is  secured  near  the  rear  of  the  barrel  by  a  stiff  rod  coupled  to  the  inertial  reference 
frame  and  the  barrel  by  pin  joints.  (Inclusion  of  the  elevation  mechanism  dynamics  can  later  be  included, 
but  are  not  a  part  of  this  modeling  effort.  [  1  ]) 

A  related  issue  to  the  inclusion  of  constraints  to  the  nodes  of  the  finite  element  model  is  the  inclusion  of 
external  inertias  that  are  not  adequately  modeled  by  merely  adding  linear  density  to  the  beam  model.  This 
will  be  discussed  later,  in  section  2.3.2. 

Note  that  as  stated  in  section  2.2.3,  imposing  node  locations  at  the  points  of  constraint  is  critical  to  the 
analysis  of  the  system  dynamics.  If  the  external  forces  imposed  on  the  beam  were  to  occur  between  node 
locations,  equations  (5)  and  (10)  would  have  to  be  employed  to  achieve  the  equivalent  constraint.  This 
extra  step  would  complicate  later  dynamic  analysis. 

2.3.1  IMPOSED  ESSENTIAL  AND  NATURAL  BOUNDARY  CONDITIONS 

Two  constraints  may  prevent  the  two  rigid  body  modes  associated  with  a  beam  element;  translation  and 
rotation.  (This  will  be  discussed  in  greater  detail  in  section  3.4.1.)  They  may  be  imposed  in  one  of  three 
ways.  The  first  two  approaches  assume  that  the  points  of  constraint  (the  trunnion  and  elevation  locations 
in  the  case  of  a  gun  barrel)  are  rigid,  thus  forming  geometric  constraints  (essential  boundary  conditions). 

In  the  case  of  a  gun  system,  lateral  motion  of  the  beam  at  the  trunnion  mechanism  would  be  eliminated, 
while  rotational  motion  (slope)  at  this  point  would  be  allowed. 

The  first  approach  is  to  algebraically  eliminate  the  consu-ained  generalized  coordinate  and  its  associated 
rows  and  columns  from  the  mass  and  stiffness  matrices.  [2,  6]  This  reduces  the  size  of  the  system  equation 
(6)  by  one  for  each  coordinate  eliminated. 

The  second  approach  is  to  set  the  rows  and  columns  of  the  mass  and  stiffness  matrices  associated  with  the 
constraint  generalized  coordinate  to  zero,  with  the  exception  of  the  diagonal  term  which  is  set  to  one.  [1 1] 
In  addition,  the  corresponding  force  vector  element  is  set  to  zero.  This  method  maintains  a  constancy  of 
the  generalized  coordinate  structure,  (alternating  y's  and  0's)  thus  reducing  confusion. 
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TTie  tliird  approach  is  to  treat  the  locations  as  imposing  constraint  via  elastic  restoring  forces  (natural 
bouiidarv  conditions).  This  is  the  method  adopted  by  Bend's  uniform  segment  modeling  (USM)  code.  [3, 
9]  The  simplest  restoring  force  is  a  constraint  in  the  form  of  a  linear  elastic  spring. 

The  third  approach  is  the  one  adopted  for  the  remainder  of  this  modeling  effort  and  is  developed  further  in 
section  2.3.3. 


2.3.2  COUPLED  RIGID  BODY  MASS 


Rigid  body  masses  may  be  directly  coupled  to  the  generalized  coordinates  at  node  locations.  This  is 
particularly  useful  to  incorporate  point  masses  whose  center  of  gravity  does  not  lie  within  the  geometry  of 
the  beam.  It  may  also  be  used  to  incorporate  non-beam  elements  with  a  significant  rotary  inertia  that 
would  be  poorly  approximated  by  a  thin  linear  density. 


The  effect  of  an  over-hanging  mass  is  an  increased  system  inertia,  at  the  associated  node.  Due  to  the 
separation  of  the  center  of  gravity  of  the  rigid  body  mass  from  the  node,  the  lateral  deflection  of  the  center 
of  the  rigid  body  mass  will  be  a  function  of  both  the  deflection  and  slope  of  the  node.  Rotational  inertia 
will  be  formed  by  the  offset,  as  could  be  predicted  by  the  parallel  axis  theorem.  Denoting  the  offset  as  r, 
which  is  positive  when  the  rigid  body  of  offset  to  the  right  of  the  associated  node  number,  denoted  by  the 
subscript  nn,  and  denoting  the  motion  of  the  rigid  mass  about  its  center  of  gravity  with  the  subscript,  eg, 
we  can  write: 


X 


eg 


y 

0 


eg 

eg 


X  +  r 

nn 

ynn  + 
0.. 


where 


X  eg 
^  yeg 
,  ^  CS 


=  Xnn 

~  y  nn 
= 


=  r  =  0  {  Small  angle 

+  r&nn  ycg=ynn 

^  6  eg  ~  ^  nn 


aproximation. 
+  rQnn 


(11) 


The  equation  of  motion  for  the  rigid  mass  about  its  own  center  of  gravity  is: 

F,g  =  Mass  eg 

^cg  ~  -^RB^eg 


(12) 


Combining  equations  (1 1)  and  (12),  the  rigid  body  forces  at  the  center  of  mass  can  be  expressed  in  terms 
of  the  nodal  generalized  coordinates.  In  addition,  the  reaction  forces  (opposite  to  the  direction  of  the  rigid 
body  mass  acceleration)  experienced  by  the  node  location  may  be  expressed,  noting  that  the  offset  creates 
an  additional  term  for  the  nodal  moment: 


=  Mass^J^ynn  +  (a) 

^cg  ~  '^RB^ 


(13) 


II 


Combining  terms,  the  reaction  force  that  would  emulate  the  rigid  body  inertia  can  be  formulated  as  a  two- 
by-two  matrix  (Note  that  the  parallel  axis  theorem  is  incorporated  into  the  lower  right  matrix  element): 


p  React 

React 

nn 


M, 


RB 


rM, 


RB 


^^RB 

y  nn 

[Jrb  +  ) 

(14) 


These  force  terms  can  be  directly  combined  with  the  force  vector  of  equation  (10b).  Finally,  by  placing 
the  additional  force  vector  terms  into  the  perspective  of  equation  (6)  it  is  clear  that  by  moving  the 
components  of  equation  (14)  to  the  left  side  of  equation  (6),  the  two-by-two  matrix  of  (14)  can  be  directly 
added  to  the  corresponding  two-by-two  sub-matrix  of  the  system  mass  matrix.  (Note  that  the  minus  sign 
in  front  of  the  rigid  body  inertia  matrix  of  (14)  is  negated  by  moving  to  the  left  side  of  equation  (6).) 

2.3.3  COUPLED  EXTERNAL  SPRINGS 

External  springs,  that  provide  natural  constraints  upon  the  beam  model,  may  be  integrated  into  the  finite 
element  formulation  in  much  the  same  way  as  the  external  rigid  body  mass.  Springs,  however,  are  easier 
to  envision  because  they  are  collocated  with  the  node.  (The  node  location  must  be  imposed  in  the  problem 
formulation.) 

The  effect  of  a  linear  translational  or  rotational  spring  is  that  they  opposes  lateral  or  rotational  deflections 
respectively,  about  the  equilibrium  location  of  the  nodal  coordinates.  This  opposition  is  in  the  form  of  a 
force  or  moment,  opposite  in  direction,  and  proportional  in  magnitude  to  the  deflection.  Denoting  lateral 
springs  as  K,  and  rotational  springs  as  Kg  where  either  K  must  be  positive,  and  using  the  same  convention 
of  denoting  the  node  number  by  the  subscript  nn,  we  can  write  the  equivalent  reaction  forces  as: 

(«) 

((,)  (W) 


As  before,  either  of  these  force  terms  can  be  directly  combined  with  the  force  vector  of  equation  (10).  By 
placing  the  additional  force  vector  terms  into  the  perspective  of  equation  (6)  it  is  clear  that  by  moving  the 
reaction  forces  of  (15)  to  the  left  side  of  equation  (6),  the  positive  scaler  spring  constants  of  (15)  can  be 
directly  added  to  the  corresponding  diagonal  element  of  the  system  stiffness  matrix. 

2.3.4  COUPLED  EXTERNAL  VIBRATION  ABSORBERS 

A  very  interesting  dynamic  effect  can  be  achieved  by  coupling  an  external  lumped  mass-spring-dashpot 
system  to  dynamic  systems.  Often  called  a  vibration  absorber  [14,  15]  (or  a  mass-tuned-damper  [16]  in 
Ae  civil  engineering  domain),  the  effect  of  the  external  system  is  to  attenuate  combined  system  vibration 
in  a  narrow  band  near  the  operating  frequency  of  the  absorber  for  sharp  transients,  and  to  dissipate  steady- 
state  energy  across  a  wider  band,  if  the  damping  coefficient  is  significant.  They  also  present  the 
possibility  of  additional,  undesirable  resonances.  For  the  sake  of  simplicity,  only  the  development  of  a 
lateral  vibration  absorber  will  be  presented,  although  the  rotational  absorber  is  completely  analogous. 
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As  ki  the  earliesr  oauplmg  cases,  it  is  critical  for  the  point  of  coupling  to  coincide  with  a  node  location. 
This  must  be  done  during  the  formulation  of  the  finite  element  model.  As  stated,  the  vibration  absorber 
consists  of  a  mass,  a  spring,  and  a  dashpot.  Since  damping  has  not  yet  been  introduced  to  the  finite 
element  beam  model,  the  damping  effect  of  the  absorber  will  be  ignored  for  now  and  set  to  zero.  It  will  be 
incorporated  later  in  section  2.4.2. 

With  the  addition  of  the  new  mass,  a  new  energy  storing  device  has  been  added  to  the  total  system.  This 
will  require  the  inclusion  of  a  new  generalized  coordinate  to  represent  the  deflection  of  this  mass,  and  its 
time  derivatives,  from  its  equilibrium  position.  A  convenient  position  to  place  the  new  coordinate,  yvA.  is 
at  the  base  of  the  generalized  coordinate  vector  of  (10a).  The  equation  of  motion  for  the  absorber 
constrained  to  node,  nn,  is: 

^VA^VA  ^VA{yVA~ym)  ~  ^  (16) 


Clearly,  the  absorber  will  also  cause  a  reactive  force  to  be  exerted  on  the  associated  node  via  the  spring 
coupling.  If  placed  on  the  right  side  of  equation  (6),  in  analogy  with  previous  formulations,  the  lateral 
reaction  force  acting  on  node,  nn,  is: 


~  ^VA{ynn  ^V/l) 


(17) 


To  incorporate  equations  (16)  and  (17)  into  the  system  matrices  of  (8)  and  (9)  will  require  the  expansion  of 
each  system  matrix  by  a  new  row  of  zeros  at  the  bottom  and  a  new  column  of  zeros  on  the  right  side  to 
match  the  new  element,  yvA,  at  the  base  of  the  generalized  coordinate  vector  of  (10a). 

The  inclusion  of  the  inertia  of  the  absorber  can  be  completed  by  adding  its  mass,  Mva.  to  the  zero  in  the 
lower  right  hand  comer  of  the  expanded  system  mass  matrix. 

The  inclusion  of  the  elasticity  of  the  absorber  will  require  four  additions  to  the  expanded  system  matrix. 
For  clarity,  the  matrix  row  that  corresponds  to  y^  is  denoted  by  index„ ,  and  the  new  row  that  corresponds 
to  y  va  is  denoted  by  indexvA.  (Since  we  are  restricted  to  the  lateral  coordinate,  one  can  reason  that  index„ 
is  equal  to  twice  its  node  number  minus  one.  Also,  for  one  absorber,  indexv^  is  equal  to  twice  the  total 
number  of  nodes  plus  one.) 

The  bottom  rows  of  the  expanded  system  matrices  can  clearly  be  set  using  (16).  The  nodal  row  of  the 
expanded  stiffness  matrix,  corresponding  to  lateral  deflection,  can  be  modified  using  the  right  side  of  (17) 
by  dropping  the  minus  sign  and  adding  in  the  new  values  to  the  existing  values  from  the  finite  element 
formulation. 

The  single  scaler  inertial  operation  is  represented  below  followed  by  all  four  scaler  operations  on  the 
stiffness  matrix  that  are  condensed  into  a  single  two-by-two  matrix  representation.  In  both  cases,  the 
addition  of  the  new  scalars  to  the  zeros  of  the  new  rows  and  columns  is  not  explicitly  shown.  Only  one 
case  of  an  interior  element  modification  occurs,  and  that  is  the  interior  element  of  the  finite  element 
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stiffness  matrix,  due  to  (17).  For  increased  clarification,  the  previous  value  of  this  interior  element  is 
superscripted  with  the  letters  FiiM  to  indicate  that  it  is  the  value  prior  to  the  absorber  modiflcatiom 

Miindexy^jndexy^)  =  My^  (jg) 


K{index^,  index  ^ )  K{index^,  index  y^ ) 
K(indeXy^,  index ^ )  K(indexy^,  indeXy^ ) 


{xP^M^index^,  index ^  )+Ky^  -  Ky^ 

~^VA  ^VA 


(19) 


Once  again,  it  is  important  to  note  that  all  of  the  above  modifications  maintain  symmetry  of  the  system 
matrices  as  was  discussed  in  section  2.1.3. 


2.4  SYSTEM  DAMPING 

All  mechanical  systems  dissipate  energy  through  motion.  Inclusion  of  this  effect  within  the  matrix 
modeling  paradigm  is  centered  around  formulating  the  damping  in  a  matrix  form  compatible  with  (6) 
where  the  new  damping  matrix,  Cp,  is  multiplied  by  the  first  time  derivative  of  the  generalized 
coordinates.  [14,  17] 


Ma  +  Cpg  +  Kg. 


(20) 


The  formulation  of  is  most  commonly  achieved  via  the  Rayleigh  damping  approximation  below.  [14, 


Cj)  -  aM  +  p/i: 


(21) 


An  important  property  of  Rayleigh  damping  is  that  increases  in  a  increase  the  damping  due  to  inertia  and 
thus  effect  greater  damping  in  the  lower  frequencies.  Conversely,  increases  in  p  effect  greater  damping  in 
the  higher  frequencies.  [15] 


The  coefficients,  a  and  p,  can  be  defined  by  choosing  the  critical  damping  ration,  for  two  modes,]  and 
k,  as  shown  in  (22).  [1,18]  Complete  control  of  the  assignment  of  damping  values  for  each  vibratory 
mode  can  be  achieve  through  modal  transformation.  [19] 


a 

P 


2 

1 

-1 

■  0)/.  ■ 

1  0)2* 

(22) 
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Raykigh  damping,  'ss  shown  in  (21)  will  be  used  for  the  remainder  of  this  modeling  effort  with  the 
exception  of  external  damping  sources  as  outline  below.  When  external  damping  sources  are  include,  they 
will  be  added  after  the  damping  matrix  formed  by  (21)  is  computed. 

2.4. 1  COUPLED  EXTERNAL  DASHPOTS 

The  effect  of  an  external  dashpot  is  completely  analogous  to  the  coupling  of  external  springs.  Linear 
translational  or  rotational  dashpots  oppose  the  relative  lateral  or  rotational  velocities  respectively,  between 
the  inertial  reference  frame  and  the  location  of  the  nodal  coordinates.  This  opposition  is  in  the  form  of  a 
force  or  moment,  opposite  in  direction,  and  proportional  in  magnitude  to  the  relative  velocity.  Denoting 
lateral  dashpots  as  Cy  and  rotational  dashpots  as  Cg,  where  either  C  must  be  positive,  and  using  the  same 
convention  of  denoting  the  node  number  by  the  subscript  nn,  we  can  write  the  equivalent  reaction  forces 
as: 

■  -  Cp*- 

■  -  C(,6„ 

As  before,  the  positive  scaler  damping  constant  of  (23)  can  be  directly  added  to  the  corresponding 
diagonal  element  of  the  system  damping  matrix  in  (20). 

2.4.2  VIBRATION  ABSORBER  DAMPING 

Explicit  inclusion  of  the  damping  of  vibration  absorber  damping  is  shown  below.  It  follows  in  complete 
analogy  with  the  stiffness  matrix  modifications  of  (19)  in  light  of  the  distinctions  demonstrated  in  section 
2.4.1. 

Cj)(index^,  index  ^  )  C^iindex^,  indeXy^^ ) 

Cj)(indeXy^,  index ^ )  CJjindeXyj^,  indeXy^ ) 


{fl^^iindex^,  index ^ )  +  C^,^)  -  Cy^ 


-C 


VA 


'VA 


(24) 


(«) 

(.b) 


(23) 


2.5  MATLAB®  COUPLING  OF  EXTERNAL  LUMPED  PARAMETER  ELEMENTS 

The  file  <fem_lump.m>  and  an  ancillary  support  file,  <fem_lumpm_check.m>,  were  written  to  integrate 
external  lumped  elements  and  Rayleigh  damping  with  the  finite  element  model  of  the  beam. 

The  files  first  add  the  two-by-two  coupled  rigid  body  terms  to  the  finite  element  mass  matrix.  (No  current 
provision  exists  for  inclusion  of  rigid  body  elements  at  interior  node  locations,  although  this  would  be  a 
simple  programming  exercise.)  As  stated  in  section  2.3.2,  the  main  intention  of  this  provision  is  to  include 
the  inertial  effects  of  elements  that  are  coupled  to  the  beam,  but  whose  centers  of  gravity  lay  beyond  the 
axial  beam  geometry.  This  is  required  to  model  the  inertia  of  the  breech  in  the  case  of  the  XM291  gun 
system. 

Rayleigh  damping  is  then  computed  using  the  input  parameters,  a  and  P,  as  developed  in  (21)  and  the 
finite  element  matrices  augmented  by  the  rigid  body  inertia.  This  results  in  the  three  system  matrices  of 
equation  (20). 
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External  springs  and  dashpots  are  then  integrated  with  the  three  system  matrices  as  developed  in  (15)  and 
(23).  This  is  accomplished  by  passing  a  matrix  of  constraint  parameters.  Each  row  of  the  constraint 
parameter  matrix  contains  the  explicit  generalized  coordinate  number,  index„,  to  which  the  constraints  are 
coupled,  the  lumped  spring  constant,  (force/displacement),  and  the  damping  constant,  (force/velocity). 
(Note  the  generalized  coordinate  index  is  found  using  the  convention  of  equation  (10):  index^  =  2xnn  -  1 
for  uanslational  motion  and  index„  =  2xnn  for  rotational  motion,  where  nn  is  the  node  number.)  The 
number  of  rows  indicates  the  number  of  external  couplings.  Note  that  these  damping  constants  are 
conveniently  computed  using  the  same  Rayleigh  damping  parameters  as  the  matrices.  It  is  implemented 
separately  to  provide  the  flexibility  to  incorporate  non-Rayleigh  damped  external  constraints  such  as 
hydraulic  shock-absorbers.  (Also  note,  MATLAB®  matrices  must  be  fully  populated.  Therefore,  if  a  pure 
damping  constraint  is  to  be  coupled,  a  spring  constant  of  zero  must  be  included  in  the  row  of  the  constraint 
parameter  matrix.) 

Finally,  an  optional  input  matrix  will  couple  any  lumped  vibration  absorbers  with  the  three  system 
matrices.  This  is  the  only  operation  that  will  change  the  size  of  the  original  finite  element  matrices.  The 
absorber  is  accomplished  by  passing  an  absorber  parameter  matrix,  that  is  identical  to  the  external  spring 
and  dashpot  matrix,  with  the  addition  of  a  fourth  column  that  includes  the  inertia  of  the  coupled  devise 
(mass).  This  is  done  to  effect  the  modifications  of  equations  (18),  (19),  and  (24).  (Note:  the  terminology 
in  the  m-files  refers  to  the  vibration  absorbers  as  mass  tuned  dampers,  or  MTD's,  for  reasons  discussed  in 
section  2.3.4.) 

The  final  output  of  the  files  are  the  three  system  matrices  that  form  equation  (20). 

2.6  STATE-SPACE  FORMULATION  FROM  THE  SECOND  ORDER  SYSTEM 

Many  of  the  powerful  MATLAB®  tools  for  dynamic  analysis  and  design  require  the  dynamic  equations  to 
be  in  linear,  time-invariant,  first-order  state-space  form.  Equation  (20)  is  in  the  second-order  symmetric 
form.  This  representation  of  the  system  dynamics  may  be  converted  to  the  first-order  state-space  form  by 
the  following  method:  [2,  20] 

First,  define  the  state-vector,  x,  and  its  first  time  derivative  as  the  combined  generalized  coordinates  of 
(10a),  possibly  modified  by  the  inclusion  of  vibration  absorbers,  and  their  first  temporal  derivatives: 


i  = 


Q. 

a 


(25) 


Second,  define  the  system  dynamics  of  (20)  in  terms  of  the  generalized  coordinate  vector's  time 
derivatives: 

4 
a 


=  n 


(a) 

(b) 


(26) 
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Note  Usat  the  fonn  of  equation  (26b)  presumes  that  ttie  mass  matrix  is  invertible.  This  is  always  the  case 
for  beam  finite  element  formulations.  (A  singular  mass  matrix  would  imply  that  at  least  one  beam  element 
had  zero  mass.)  Using  (25)  and  (26),  the  state-space  representation  with  the  generalized  coordinates  as  the 
output  is: 

i  =  Az  +  Ba  ... 

y  =  Ci  +  ^  ^ 


Where  the  state-space  matrices  are  constructed  in  terms  of  the  second  order  system  matrices,  and  the  zero 
and  identity  matrices  of  compatible  size.  (Note,  the  state-space  matrices  have  twice  the  number  of  rows 
and  columns  of  the  second-order  system  matrices.): 


o 

0 

A  = 

1 

1 

ia) 

B  = 

c  =  \ 

I  0 

ic) 

D  =  1 

[0] 

y=a  ie)  n-f 


(b) 

id) 

if) 


(28) 


2.7  MATLAB®  REALIZATION  OF  THE  STATE-SPACE  FORMULATION 

The  m-file,  <fem2ss.m>,  computes  the  state-space  matrices  using  the  second-order  matrices  of  (20)  as 
shown  in  (28). 


3  EIGEN  ANALYSIS 

3.1  UNDAMPED  SECOND-ORDER  EIGENVALUES  AND  EIGENVECTORS 

A  powerful  perspective  system  dynamics  can  be  attained  by  converting  the  dynamic  representation  of  the 
vibrating  system  to  the  frequency  or  modal  domain.  It  has  been  shown  that  the  free  vibrations  of  the 
homogeneous  form  of  the  differential  equation  of  (6)  (provided  M  and  K  are  symmetric)  can  be  solved 
using  the  separation  of  variables  technique.  [6]  This  method  separates  the  spatial  and  temporal  domains  of 
the  generalized  coordinate  vector. 

dit)  =  =  ^^it)  (29) 

i-O 


This  achieves  a  pairing  of  spatial  shapes,  the  columns  of  O,  with  the  dynamic  amplitudes  of  the  elements 
of  tp(t).  Equation  (29)  has  decoupled  the  system  into  a  series  of  single  degree  of  freedom  vibrating  modes, 
where  each  associated  mode  shape  represents  the  single  degree  of  freedom.  From  this  perspective,  the 
dynamic  amplitudes  of  ip(t)  that  form  the  solution  of  the  differential  equation  can  be  formulated  as: 
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ie(0  = 


(30) 


A,cos(co,/  +  ({), ) 

A2C0S(CjL)2f  +  4>2  ) 

>  fc(0  = 

-Aja)jSin(o)jr+4)j ) 

-A2(02Sin(a)2f +4) 

^  <12(0  = 

-Aja)iCos(a)jr+4)j ) 

-A20)2C0S(Ci)2r  +  4)2) 

A„cos(co„r+4) 

_-A„a)„sin(o)„r+<j)J 

-A„co^cos((o„r+4) 

The  modal  frequencies  are,  coj  through  (»)„.  The  amplitudes  Aj  through  are  redundant  to  the  scaling  of 
the  mode  shapes;  thus  the  mode  shapes  may  be  normalized  (scaled)  as  desired.  Finally,  the  phase  angles, 
4>i  through  (j)„,  complete  the  solution  to  the  modal  vibrations.  For  the  homogeneous  initial  value  problem, 
all  modes  begin  with  the  maximum  amplitudes  —derived  from  the  initial  conditions—  implying  (f)) 
through  4)„  equal  zero.  For  the  homogeneous  impact  problem  (instantaneous  velocity),  all  modes  begin 
with  zero  amplitude  and  a  phase  of  ±ti:/2.  (Note  that  the  phase  angle  (()'s  are  scaler  values  that  are  unrelated 
to  the  modal  matrix,  <I»,  or  its  columns  ijji  through  ij}„.) 

The  solution  of  (6),  as  formulated  in  (29)  and  (30)  is  found  by  solving  the  eigen  equation.  A  convenient 
means  to  achieve  this  is  to  solve  the  homogeneous  form  of  equation  (6)  one  mode  at  a  time.  (Later  it  will 
be  shown  that  the  mode  shapes  of  $  are  mutually  orthogonal,  thus  a  homogeneous  solution  of  (6)  will 
require  each  modal  contribution  to  independently  and  simultaneously  be  homogeneous.) 

M^(jp.(r)  +  K^(p.(0  =  Q  (a) 

(-oifM  +  A)^(p.(t)  =  Q  (d) 

(c) 


V  /  e  {1,2,...«} 


(31) 


For  non-trivial  solution,  the  mode  shape,  4,  must  not  be  composed  entirely  of  zeros.  Thus  the  modal 
frequencies  are  solved  from  the  characteristic  equation  that  would  drive  the  determinate  of  (31b),  det(-(Oj^ 
M  +  K),  to  zero.  This  will  yield  the  n,  natural  frequencies.  Once  these  are  known,  the  respective  non¬ 
trivial  eigenvectors  can  be  solved  from  (3 1)  by  substituting  in  each  tOj ,  to  form  n  algebraic  equations,  and 
finding  a  solution  for  each  element  of  4-  Note  that  as  stated  earlier,  the  scale  of  4  is  a  free  parameter,  as  a 
matter  of  convenience,  the  first  non-zero  element  may  be  set  to  one.  Then  the  remaining  elements  are 
completely  determinate.  A  more  convenient  normalization  will  be  developed  in  section  3.1.3. 

Note  that  for  the  assumed  solution  form  of  (30)  to  be  valid,  the  modal  frequencies  must  be  real  valued.  If 
any  of  the  roots  of  (3 1)  imply  that  o);  has  any  imaginary  component,  then  the  assumed  form  is  invalid. 
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Gencraliy^  siiis  event  will  imply  instability  that  will  prevent  an  oscillating  solution.  This  instability  is 
avoided  if  both  of  the  matrices  M  and  K  are  positive  semi-defmite.  (A  sufficient  condition  for  a  real 
symmetric  matrix  to  be  positive  semi-defmite  is  for  none  of  its  eigenvalues  to  be  negative.  [21])  Further 
note  for  the  formulation  of  (31c)  that  the  inertial  matrix  is  presumed  invertible.  This  is  not  required  for  the 
eigen  equation  of  (31b),  but  it  is  always  true  for  the  finite  element  beam  formulation,  and  it  is  a  convenient 
algebraic  form  to  work  with.  (Note  that  if  the  stiffness  matrix  is  invertible,  K'‘M4  =  is  also  a 
valid  form  of  the  equation.) 

3.1.1  EIGENVECTORS  OF  REPEATED  EIGENVALUES 


The  eigen  problem  of  (3 1)  becomes  more  challenging  if  their  are  repeated  fundamental  frequencies.  If  the 
frequency  is  repeated  k  times  this  would  imply  that is  a  component  of  the  characteristic  equation  of 
(31).  The  first  eigenvector  can  be  found  as  for  non-repeated  solutions.  However,  the  remaining  k-1 
solutions  can  not  be  found  as  directly,  but  orthogonal  eigenvectors  may  be  constructed  as  follows:  [6, 7, 
14,  15] 


K^j  = 

+  M^j 


(32) 


3.1.2  ORTHOGONALITY  OF  THE  EIGENVECTORS 


The  orthogonality  of  the  eigenvectors  is  the  key  that  mathematically  allows  the  dynamic  problem, 
formulated  using  the  finite  element  approach,  to  be  broken  down  into  a  frequency  domain  perspective.  As 
shown  in  (29)  the  dynamic  problem  has  been  decomposed  into  a  finite  number  of  spatial  modes,  directly 
coupled  to  a  temporal  component.  It  has  been  shown  that  the  temporal  solution  is  of  the  form  of  (30). 
Thus,  the  homogeneous  response  is  a  composed  of  a  finite  number  of  oscillating  temporal  frequencies. 

The  orthogonality  of  the  eigenvectors  completes  the  decoupling  of  the  problem  by  demonstrating  that  the 
contribution  of  each  frequency  is  independent  of  the  other  frequencies.  Thus,  the  eigenvectors  form  an 
orthogonal  basis  for  the  generalized  coordinates. 


To  demonsfrate  the  orthogonality  of  the  eigenvectors  of  (31),  provided  that  M  and  K  are  symmefric, 
consider  any  two  solutions,  and  multiply  them  by  the  transpose  of  the  other  eigenvector:  [14] 


=  K^i  (a) 
(c) 


=  K^j  (b) 

(d) 


(33) 
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Now,  transpose  (33d),  and  note  the  symmetry  of  M  and  K; 

(a) 

ib) 

(c) 


(34) 


Finally,  subtract  (34c)  from  (33c): 


(35) 


From  (35)  it  is  clear  that:  for  I  j,  4>j^  M  <j)j  =  0.  This  is  a  definition  of  orthogonality.  Since  M  is  both 
invertible  and  positive  semi-defmite  it  is  positive  definite  (all  roots  greater  than  zero).  [21]  Also,  since  <{); 
is  non-zero  VI  e  { 1,  2,  ...n],  (|)j^  M  (j)j  0.  This  relationship  is  critical  in  the  basis  transform  that  follows 
in  section  3.1.4. 

3.1.3  MASS  NORMALIZATION  OF  THE  EIGENVECTORS 

As  stated,  the  scale  of  the  eigenvectors  is  a  free  parameter.  In  the  derivation  of  the  eigenvectors  in  section 
3.1,  they  were  normalized  such  that  the  first  non-zero  entry  was  set  to  one  for  algebraic  simplicity.  At  this 
point,  it  will  prove  convenient  to  normalize  the  vectors  such  that  the  orthogonality  relationship  of  (33  c,d) 
takes  on  a  particularly  useful  form.  (For  convenience,  we  will  subscript  the  mass  normalized  vectors  with 
an  N.  This  subscript  will  later  be  dropped,  as  mass  normalization  will  be  assumed  for  the  remainder  of  this 
report.) 

The  desired  orthogonality  relationship  is:  [14,  15] 

j  i 

Where  b- j  = 

The  orthogonality  has  already  assured  the  zero  value  for  I  ^  j.  What  remains  is  to  divide  the  un¬ 
normalized  eigenvectors  by  the  square  root  of  the  scaler  product  of  (j)4  M  cj)). 


IW  I 


=  m. 
) 


Ai 


=  1 


(37) 


M  if  i  =j  (36) 

\0  if  i 
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Thus,  die  mass  normalized  eigenvector  can  be  obtained  from  any  scale  by  the  following  relationship: 


= 


(38) 


Mass  normalized  eigenvectors  will  be  assumed  for  the  remainder  of  this  report,  unless  otherwise  stated, 
therefore  the  subscripted  N,  will  be  dropped. 

3.1.4  MODAL  TRANSFORMATION 

The  result  of  generating  n,  orthogonal,  mass  normalized,  eigenvectors  has  been  the  development  of  the 
most  simplified  basis  to  represent  the  dynamics  of  (6).  [22]  A  change  of  basis,  or  linear  transformation 
may  be  accomplished  that  maintains  the  same  system  dynamics  from  the  eigen  perspective.  This  is  termed 
modal  transformation.  This  may  be  achieve  by  collecting  the  mass  normalized  eigenvectors  into  the 
modal  matrix,  of  equation  (29):  [14,  15, 19] 


=  fit) 

(a) 

0''A/4>^(0  +  =  ^^fit) 

ib) 

(39) 

/<e(0  +  Aip(r)  =  ^‘^fit) 

ic) 

Two  major  simplifications  occurred  in  (39).  First,  the  mass  normalization  transformed  the  mass  matrix 
into  the  identity  matrix,  I.  Second,  as  can  be  seen  from  (34b),  the  stiffness  matrix,  K,  has  been 
transformed  into  a  diagonal  matrix  of  squared  fundamental  frequencies.  In  general,  the  modal  matrix  is 
sorted  so  that  the  resulting  modally  transformed  stiffness  matrix,  A,  is  composed  of  the  squared 
frequencies  in  order  of  increasing  frequency  down  the  diagonal. 

The  result  of  equation  (39c)  is  that  the  complicated  solution  of  (6)  has  been  transformed  into  a  series  of 
decoupled  first-order  differential  equations.  The  vector,  ip(t),  is  called  the  modal  coordinate  vector.  [19] 


3.2  DAMPED  SECOND-ORDER  SYMMETRIC  EIGENVALUES  AND  EIGENVECTORS 

The  homogeneous  damped  vibration  problem  of  (19)  can  also  be  examined  in  from  the  eigen  perspective, 
provided  M,  C^,  and  K  are  symmetric,  as  follows.  [23]  First,  in  a  similar  approach  to  equations  (26)  and 
(27),  convert  the  second  order  equations  to  first  order  form  without  inverting  the  inertial  matrix  while 
maintaining  symmeU'y  by  implementing  the  trivial  equality  of  (40): 

Mij  -  M4  =  Q  (40) 
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M  +  Bij  =  Q  (a) 
Where: 


4 

0 

M 

O 

1 

,  a . 

II 

M 

(c)  B  = 

OX 

(41) 


Note  that  the  state  space  forms,  (26)  and  (41),  are  different  realizations  of  the  same  linear  operator. 

Assume  a  solution  to  (41)  using  the  separation  of  variables  similar  to  (29)  of  the  form: 

2J(0  =  Sk  (a) 


Where: 


S  -(Lfc-- 

■L] 

(b) 

K  ■  [k,c“>' 

'  • 

(42) 


The  first  time  derivative  of  the  exponential  temporal  terms  result  in: 


11(0 


= 


(-1 


K,.e 


(43) 


Substituting  (42)  and  (43)  back  into  (41)  one  mode  at  a  time  and  noting  the  relationship  between  the  upper 
and  lower  halves  of  i-,  as  a  result  of  (41b)  in  particular: 


u;  =  fl  (a) 

(  «;  A  +  B  I  i  K-e  ^ 

-M  a.M 
a.M  {a.Cjj  +  K) 

^.Upper  ^ 


^ .  Upper 
^  .Lower 


Q 


(c) 


V  i  6  {l,2,...n} 


(44) 
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Recogsuzisg  <iv<i£  bji  including  (44d)  in  (44c),  and  dropping  the  eigen  index  subscript,  results  in  the  form: 


[a?M  +  aC^  ^  K)i^  =  Q 


(45) 


Clearly,  we  may  expect  complex  eigenvalues.  Therefore,  examining  real  and  imaginary  components  of  the 
eigen  value,  aj  and  ttg  of  the  characteristic  equation,  (45)  without  the  eigenvector,  separately: 


+  ct^C^  +  =  0  (a) 

-lajfLjM  +  OLjCj^  =  aj{-2agM  +  =  0  (b) 


(46) 


This  demonstrates  that  the  solution  for  one  root,  a,  is  also  the  solution  of  its  complex  conjugate,  a*,  since 
the  sign  of  the  imaginary  component  factors  out  of  both  equations. 


This  relationship  can  be  reiterated  in  the  first  order  form  of  (44c),  and  further  demonstrate  that  the 
eigenvectors  of  the  complex  conjugate  eigenvalues  are  conjugate  provided  that  the  elements  of  A  and  B 
are  real.  (This  provision  guarantees  that  the  complex  conjugate  of  the  product  of  a  real  matrix  and  a 
complex  vector  is  equivalent  to  the  product  of  a  real  matrix  and  the  complex  conjugate  of  the  vector.) 


aJili  +  Bii  =  Q  > 


a;Ai*  +  Bi:  =  Q 


(47) 


From  this  development,  we  can  expect  the  first-order  eigen  solutions  to  contain  twice  as  many  eigenvalues 
as  the  original  second-order  form,  but  we  anticipate  that  they  will  come  in  complex  conjugate  pairs,  as 
demonstrated  by  (46)  and  (47). 

The  relationships  between  the  eigenvectors  is  shown  below  for  a  sorted  modal  matrix,  with  subscripted  tfc's 
in  lieu  of  subscripted  (The  notation  is  consistent  with  the  undamped  eigenvectors  of  (29)): 

Klifel  a2^2  02^2  •  •  • 

S  = 

^2  ^2*  •  •  • 


(48) 
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3.3  FIRST-ORDER  STATE-SPACE  EIGENVALUES  AND  EIGENVECTORS 


The  first-order  homogeneous  state-space  system  of  (25)  through  (28)  can  be  related  to  the  first-order  state- 
space  system  of  (41)  as  follows: 


0  / 


II  =  -A'^  B  u 


0  / 

•-I  ~ 

0  1 

i  =  - 

A 

7  0 

10 

(a) 

(b) 

(c) 


(49) 


A  can  be  evaluated  from  its  partitioned  definition  of  (41b)  using  the  Schur  matrix  inversion  formula. 
[24]  Also  note  that  the  inverse  of  the  permutation  matrix  (skewed  identity  matrix)  is  itself.  The  result  of 
combining  the  four  matrices  of  (49c)  follow: 


0  1 

(-M-1  Co  M-^)  A/-1 

-M  0 

0  I 

0  7 

^0 

M 0 

0 

10 

As  expected,  this  result  is  identical  to  the  state-space  formulation  of  (28a).  As  a  result  of  this  equivalence, 
the  eigenvectors  of  the  first-order  state-space  formulation  of  (25)  through  (28)  are  the  same  as  S  of  (37) 
with  the  bottom  half  partition  and  top  half  partition  swapped  as  indicated  by  the  simple  transformation  of 
(49a). 

3.4  RIGID  BODY  MODES 

Rigid  body  (degenerate)  modes  of  vibration  occur  when  a  system  is  not  fully  constrained  to  an  inertial 
reference  Irame.  [14, 15, 18]  In  the  case  of  transverse  beam  dynamics,  two  rigid  body  modes  are  possible: 
rotation  and  translation.  The  system  matrices  of  the  finite  element  formulation  (8)  and  (9)  are  an  example 
of  an  unconstrained  structure.  This  implies  that  the  system  stiffness  matrix  is  singular.  Insight  can  be 
gained  into  the  cause  of  this  by  investigating  the  singularity  of  the  elemental  stiffness  matrix  formulation 
of  (3),  and  examining  its  implications  on  (9). 
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^A:l  THE  SINGULARITY  OF  THE  HNITE  ELEMENT  STIFFNESS  MATRIX 


Close  inspection  of  the  second  spatial  derivatives  of  (1)  used  in  (3)  reveals  that  the  third  function  is 
negative  of  the  first.  Further  inspection  reveals  a  relationship  between  all  but  three  of  the  multiplied  pairs 
of  polynomials  and  the  elemental  length,  h,  prior  to  the  integration.  (The  demonstration  of  this  is  included 
in  the  m-file,  <rank_ki.m>.)  Defining: 


A. 

0 

Ai 

p,.  =  jE.(x)I.0c)^^(x)^2(x)dx 
0 
A. 

Y,.  =  fE.ix)I.(x)<i>2ix)(i>2{x)dx 
0 


fE,(x)/,(x) 

0 

A. 

fE,(x)I,(x) 

0 

A. 

fE.(x)f,.(x) 
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72 

hf 

,4 


2 

^  144' 

'  36  V 

- 
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1 

X  + 

.b'lj 
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\ 

- 

Y  + 

f24]] 

A  “ 

/ 

[  J 

\ 

- 

(48) 

Y  + 

'  —V 

A 

/ 

1,3 

J 

A  “ 

I'*- ii 

dx 


dx 


ia) 

(b)  (51) 


(c) 


The  elemental  stiffness  matrix  (3)  of  an  element,  I,  can  be  simplified  to: 

p,.  -a,.  [a.h.  -  p.) 

P,  Y,'  -P,  {?>A  -  Y,) 

^  -a.  -p,.  a,.  -(a.h.  -  P,.) 

,  -  P.)  (P;^,-  -  Y.)  -  P.)  (ccA^  -  2p,./i,.  +  Y,-) 


In  this  simplified  form  it  is  clear  that  the  third  row  is  the  negative  of  the  first,  and  the  forth  row  is  the  first 
minus  the  second  (or  the  negative  of  the  third  minus  the  seeond).  The  same  is  also  true  of  the  columns  due 
to  the  symmetry  of  the  matrix.  Thus  rank(K0  is  two  and  we  can  expect  zero  eigenvalues  that  result  in  rigid 
body  modes  of  the  single  element.  We  can  also  notice,  that  by  adding  positive  stiffness  values  to  the  main 
diagonal  we  may  constraint  the  element.  Clearly,  at  least  two  stiffness  will  have  to  be  added  to  raise  the 
rank  by  two,  which  raises  the  question:  Will  any  two  stiffness  suffice?  The  intuitive  answer  is,  of  course, 
no.  At  least  one  stiffness  will  have  to  lateral.  (Recall  that  the  first  and  third  rows  and  columns  relate  to 
lateral  motion  while  the  second  and  forth  relate  to  rotational  motion.) 

To  demonstrate  that  two  rotational  stiffness  do  not  impose  full  rank  on  K‘,  add  a  constant  to  the  diagonal 
elements  of  rows  two  and  four.  Notice  that  row  three  is  still  the  negative  of  row  one;  thus  the  element  is 
not  fully  constrained.  The  lateral  modes  are  not  coupled  with  the  rotational  modes. 
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The  converse  is  true.  Two  lateral  stiffness  do  constrain  the  element.  In  fact,  one  lateral  stiffness, 
combined  with  any  other  stifftiess,  will  achieve  full  constraint.  This  is  due  to  the  dependence  of  the 
second  rotational  mode  (the  fourth  row)  on  the  lateral  modes,  prior  to  external  constraint.  (Note  that  we 
have  arbitrarily  decided  to  define  the  fourth  row  in  terms  of  the  first  and  second.  We  could  also  have 
defined  the  second  in  terms  of  the  first  and  the  fourth.  Thus,  it  is  not  just  the  fourth  row  that  is  dependent 
on  the  lateral  modes,  both  rotational  modes  may  be  formulated  as  a  function  of  the  other  rotational  mode, 
and  either  lateral  mode.) 

The  lack  of  full  rank  of  each  elemental  matrix  results  in  a  lack  of  full  rank  for  the  system  stiffness  of  the 
finite  element  beam  model.  Because  of  the  cascading  combination  of  elemental  matrices  in  (9),  the  rank  of 
the  full  system  matrix  remain  deficient  by  two.  (For  nn  nodes,  we  combine  (nn- 1)  elemental  matrices, 
each  of  rank  two.  Thus  the  rank  of  the  full  system  matrix,  size  2xnn,  is  2xnn-2.) 

An  analogous  interdependence  between  rows  and  columns  of  the  system  stiffness  matrix,  K,  occurs  that 
allows  external  stiffness  constraints  at  interior  nodes  to  successfully  constrain  the  integrated  finite  element 
model.  In  analog)'  with  (9): 
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i)  (^2^2^  ”  ^P2^2 

Note  that  row  five  of  (53)  is  a  linear  combination  of  the  first  and  third  rows.  Thus,  the  addition  of  an 
external  stiffness  on  the  diagonal  of  row  five,  will  in  turn  break-up  the  interdependence  between  the  first 
and  third  rows.  In  general,  the  interdependence  between  rows  cascades  down  the  system  matrix,  and 
external  constraints  break-up  the  chains  of  interdependence.  The  independence  of  the  lateral  modes  from 
the  rotation  modes  persists.  The  odd  rows  are  only  interdependent  with  other  odd  rows. 

3.5  MATLAB®  REALIZATION  OF  EIGEN  ANALYSIS 

3.5.1  UNDAMPED  MODE  SHAPES  AND  FREQUENCIES 

The  file  <eigen_2o.m>  was  written  to  compute  the  mode  shapes  and  frequencies  of  both  undamped, 
equation  (6),  and  damped,  equation  (20),  second-order  equations  of  motion.  In  either  case,  the  input 
matrices  are  first  checked  to  be  sure  that  they  are  square  and  of  compatible  size.  The  undamped 
eigenvalues  and  eigenvectors  are  then  computed  using  equation  (31b)  and  the  generalized  eigenvalue 
problem  variation  of  MATLAB®'s  <eig>  command  [12]  in  a  straight  forward  manner.  The  circular 
frequency  (radians  per  second)  is  then  computed  as  the  square  root  of  the  eigenvalues.  Real  frequencies 
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are  gu^araiiteed,  providexl  \iiai  live  mass  and  stiffness  matrices  are  real  valued,  positive  definite,  and 
symmetric  as  was  discussed  in  section  3.1.  (Rigid  body  modes,  corresponding  to  zero  valued  eigenvalues, 
sometimes  result  in  a  small  imaginary  content  for  the  resulting  zero  frequency  mode.  This  is  presumed  to 
be  harmless  numerical  imprecision,  but  it  does  trigger  warning  messages.)  Issues  regarding  repeated 
eigenvalues  and  rigid  body  modes  are  resolved  by  the  MATLAB®  <eig>  command.  [12] 

3.5.2  DAMPED  MODE  SHAPES  AND  FREQUENCIES 

Damped  mode  shapes  and  frequencies  are  computed  if  the  optional  damping  matrix  is  included  as  an  input 
variable  to  the  file.  Numeric  accuracy  limitations  require  the  use  of  an  imposed  cut-off  frequency  to 
discriminate  under-damped  vibratory  modes  and  rigid  body  modes.  (Note  that  over-damped  modes  may 
exist.)  The  cut-off  frequency  chosen  was  five  percent  of  the  frmdamental  mode  of  the  imdamped  system, 
which  is  computed  first.  This  value  may  easily  be  changed  if  the  need  presents  itself. 

If  the  damping  matrix  was  included,  the  conversion  to  the  first-order  form  of  equation  (41)  precedes  the 
call  to  MATLAB®'s  <eig>  command  [12]  to  implement  equation  (44b).  Extraction  of  the  mode 
frequencies  is  accomplished  by  taking  the  absolute  value  of  the  imaginary  component  of  each  pair  of 
complex  conjugate  eigenvalues.  The  unit  of  the  frequency  is  radians  per  second,  as  can  be  seen  from 
equation  (42c)  in  light  of  Euler's  equation  (polar  form  [21]); 

=  e‘^‘(cos(ajt)  +  ism(ajt))  (54) 


Note  also  from  Euler's  equation  that  since  the  eigenvalues  that  contain  imaginary  components  come  in 
conjugate  pairs  — due  to  the  symmetry  of  the  system  matrices —  the  imaginary  content  of  the  time  domain 
response  cancels  out:  I  sin(ai)  +  I  sin(-aj)  =  0. 

Extraction  of  the  second-order  damped  mode-shapes  from  the  first-order  eigenvectors  is  achieved  by 
identifying  the  eigenvalues  with  positive  imaginary  content.  (Thus  neglecting  the  corresponding  negative 
conjugate.)  The  mode-shapes  are  extracted  by  taking  the  real  part  of  the  upper  half  of  the  eigenvectors 
that  correspond  to  the  identified  eigenvalues.  Note  that  the  first-order  eigenvectors  identified  by 
MATLAB®  are  normalized  to  a  Euclidian  length  of  one.  Since  the  eigenvectors  include  imaginary  content, 
MATLAB®  must,  in  general,  multiply  each  eigenvector  by  a  complex  scaling  coefficient.  This  may  mask 
the  underlying  structure  identified  in  (48).  The  structure  of  (48)  may  be  partially  recovered  by  identifying 
a  new  complex  coefficient  for  each  independent  eigenvector  that  cancels  the  imaginary  content  of  the 
lower  half  of  (48).  Further,  the  columns  corresponding  to  conjugate  eigenvectors  may  be  normalized  by  a 
real-valued  scaler  value  to  obtain  a  one-to-one  match  between  the  lower  halves  of  conjugate  eigenvectors. 
Once  these  steps  are  taken,  the  relationships  indicated  by  (44d)  and  (47)  are  revealed. 
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3.5.3  IDENTIFICATION  OF  RIGID  BODY  MODES 

Rigid  body  modes  correspond  to  eigenvalues  of  zero  in  either  case  of  damped  or  undamped  systems. 
MATLAB®  's  numerical  approximation  of  the  damped  eigenvalues  makes  the  identification  of  the  zero 
eigenvalues  more  challenging.  The  cut-off  frequency  that  was  used  to  discriminate  flexible  modes  from 
over  damped  modes  is  employed  to  identify  eigenvalues  that  are  close  enough  to  the  origin  to  be 
considered  as  rigid  body  modes.  This  identification  is  not  robust:  it  is  susceptible  to  errors.  For  this 
reason,  the  expected  number  of  rigid  body  modes  is  computed  from  the  rank  deficiency  of  the  stiffness 
matrix  (see  section  3.4.1).  If  a  discrepancy  is  found  between  the  computed  and  identified  number  of  rigid 
body  modes,  a  warning  is  written  to  the  screen. 

3.5.4  CYCLIC  FREQUENCY 

The  cyclic  frequency  is  obtained  by  dividing  the  circular  frequency,  radians  per  second,  by  2x7t  radians 
per  cycle.  The  resultant  frequency  is  in  units  of  cycles  per  second  or  Hertz. 

3.5.5  NORMALIZATION  OF  THE  MODE-SHAPES 

The  undamped  eigenvectors,  or  the  damped  mode-shapes  extracted  from  the  first-order  eigenvectors,  are 
mass  normalized  using  the  relationship  of  (38).  In  addition,  a  consistent  sign  convention  is  imposed  that 
results  in  a  positive  initial  rotation  of  the  beam  (left  end  pointing  down).  This  reduces  confusion  that  may 
be  caused  by  the  sign  ambiguity  of  (38)  that  results  in  seemingly  random  orientations  of  the  mode-shapes 
about  the  undeformed  axial  axis. 

3.5.6  SORTING  OF  MODES  IN  ORDER  OF  INCREASING  FREQUENCY 

The  cyclic  frequencies  are  sorted  in  order  of  increasing  frequency.  The  columns  of  the  mode-shape  matrix 
are  rearranged  to  maintain  a  one-to-one  correspondence  with  the  sorted  mode  frequencies. 

3.5.7  EVALUATION  OF  ORTHONORMALITY  OF  THE  MODE-SHAPES 

The  orthogonality  and  mass  normalization  of  the  mode-shapes  imposed  by  (38)  is  validated  by  computing 
the  norm  of  the  following  matrix; 


a>'^M3>  - 1 «  0 


(55) 


As  indicated  by  (55),  the  result  would  ideally  be  a  matrix  the  same  size  as  the  mass  matrix  and  full  of 
zeros.  Thus,  a  small  value  was  selected  as  a  criteria  to  compare  against  the  resulting  norm  to  validate,  or 
call  into  question,  the  orthonormality  of  the  mode-shapes.  If  the  test  is  failed,  a  warning  is  written  to  the 
screen. 
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This  tesi  bas  revealed  that  M  ATLAB®  dots  not  generally  produce  orthogonal  mode-shapes  corresponding 
to  repealed  rigid  body  modes  (as  one  could  expect).  For  the  other  cases,  one  rigid  body  mode  or  a  fully 
constrained  system,  MATLAB®  produces  nearly  orthogonal  mode-shapes  in  most  cases. 

3.5.8  PLOTTING  OF  BEAM  DEFORMATION  AND  MODE-SHAPES 

An  m-file,  <beam_plot.m>,  was  written  to  plot  the  beam  deformations  as  a  function  of  the  generalized 
coordinates.  The  input  information  required  includes  the  node  coordinates,  the  axial  position  vector,  the 
generalized  coordinate  vector,  a  scaled  geometry  matrix,  the  constraint  vector,  and  if  an  external  vibration 
absorbers  are  included,  an  input  vector  of  the  generalized  coordinates  to  which  the  absorbers  are  coupled. 
(Note  that  the  mode-shapes  evaluated  above  consist  of  a  vector  of  generalized  coordinates  values.) 

After  several  validation  checks  of  the  input  arguments,  the  deflections  of  the  centerline  of  each  finite 
element  of  the  beam  are  computed  using  (7).  This  requires  the  use  of  the  file,  <fem_interp.m>,  discussed 
in  section  2.2.4.  The  deflections  of  each  element  are  combined  into  a  total  beam  deflection  vector,  that 
maintains  a  one-to-one  correspondence  with  the  axial  position  vector. 

Once  the  centerline  deflection  vector  is  computed,  an  exaggerated  plot  of  the  actual  distorted  beam  shape 
may  be  obtained  adding  the  centerline  deflection  to  a  scaled  form  of  the  geometry  matrix  that  was 
computed  when  the  input  beam  geometry  was  formulated.  (See  section  2.2.2.)  The  geometry  matrix  is 
scaled  prior  to  calling  the  plotting  routine,  to  achieve  an  aesthetically  pleasing  plot  of  the  deformed  beam 
geomeUy.  (If  the  scaled  geometry  dimensions  are  much  greater  than  the  deflections  of  the  center  line,  the 
deflection  will  be  obscured.  Conversely,  if  the  scaled  geometry  dimensions  are  much  smaller  than  the 
deflections,  the  geomeny  will  be  obscured  resulting  in  a  plot  that  approaches  as  narrow  line  as  the 
difference  is  exaggerated.)  For  clarity  the  centerline  is  plotted  with  the  finite  element  node  locations 
explicitly  tagged  by  x's. 

External  constraints  are  depicted  by  a  thick  line  connecting  the  beam's  generalize  coordinate  location  to  its 
undeformed  location.  Thus  they  may  create  the  impression  of  an  elastic  member,  tying  the  beam  to  the 
inertial  reference  frame  at  the  nodal  constraint  location. 

If  an  external  absorber  is  coupled  to  the  barrel,  the  axial  position  of  the  external  center  of  mass  is  directly 
indicated  by  the  location  of  its  generalized  coordinate.  The  position  of  the  external  mass  is  directly 
plotted  as  a  character,  *  or  o,  using  its  lateral  deflection  explicitly.  In  addition,  a  line  coupling  the  external 
mass  to  its  beam  generalized  coordinate  is  included.  It  is  important  to  note  that  provisions  to  correctly 
depict  rotational  absorbers  has  not  been  included.  To  do  so  would  require  explicit  information  on  the  plot 
aspect  ratio  and  scaling,  and  could  still  lead  to  confusion  due  to  the  exaggerated  slopes  of  the  beam  itself. 
Thus  far,  provisions  to  better  represent  them  have  not  been  warranted.  For  now,  the  rotational  absorbers 
are  indicated  by  the,  *,  character,  and  lateral  absorbers  by  the,  o,  character.  The  angular  deflections  of  the 
rotational  absorbers  are  simply  plotted  as  lateral  deflections  that  still  convey  the  relative  phase  and  motion 
of  these  coupled  inertias. 
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4  MATLAB®  DYNAMIC  ANALYSIS  CASE  STUDIES 


MATLAB®  script  m-files  [12]  were  written  to  demonstrate  some  of  the  analysis  that  is  possible  with  the 
collection  of  function  files  documented  in  this  report  to  conduct  dynamic  analysis  of  non-uniform  beams. 
It  is  the  purpose  of  this  section  to  conduct  a  step-by-step  case  studies  of  a  nonuniform,  partially 
constrained  and  fully  constrained  beams.  In  the  process,  a  pole-zero  map  will  be  constructed,  a  Bode 
frequency  response  plot  will  be  developed,  a  time  domain  simulation  of  the  dynamic  response  of  the  beam 
to  an  input  vector  will  be  computed,  and  the  modeling  will  be  validated. 

4.1  THE  RIGID  BODY  XM291  CASE 

This  first  case  study  section  will  examine  the  behavior  of  an  XM291  gun  system,  that  is  not  coupled  to  an 
elevation  mechanism.  Thus,  it  is  only  partially  constrained  by  the  trunnion  mount  and  exhibits  rigid  body 
motion  manifest  in  angular  deflections.  This  model  could  be  used  as  the  open-loop  plant  for  the 
formulation  of  an  elevation  feedback  control. 

4.1.1  PRELIMINARIES 

The  script  file,  <XM291rb.m>,  that  implements  this  first  part  of  the  case  study  is  broken  up  into  sections 
that  execute  commands  to  achieve  one  or  more  closely  related  modeling  goals.  At  the  beginning  of  each 
section,  the  variables  to  be  defined  in  the  section  are  indicated,  along  with  the  variables  to  be  altered  and 
used  in  the  section.  Furtlier,  a  brief  description  of  the  section  is  provided.  Interim  variables  that  are 
defined  within  a  section,  but  not  used  by  later  sections,  are  sometimes  set  to  null  values  at  the  end  of  the 
section  to  maintain  clarity,  and  keep  the  variable  work-space  manageable. 

Prior  to  reading  in  the  beam  geometry  to  be  studied,  we  have  found  it  convenient  to  establish  two  flags  to 
indicate  whether  or  not  plots  should  be  displayed,  and  if  so,  whether  or  not  they  should  be  printed.  For  the 
remainder  of  this  case  study,  it  is  assumed  that  the  plot  flag  is  on. 

Finally,  a  plot  label  is  set  to  automatically  annotate  several  of  the  plots  that  are  generated.  In  this  case,  the 
label  is  set  to:  XM291rb.  The  subject  will  be  the  analysis  of  the  XM291,  laterally  constrained  by  a  stiff 
spring  approximation  to  a  frictionless  pair  of  trunnion  bearings  in  the  vertieal  plane.  This  will  result  in 
one  rigid  body  rotational  mode,  and  set  the  stage  for  analysis  of  the  beam  dynamics,  subjected  to  force 
input  at  the  elevation  mechanism  location. 
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4. 1.2  BEAM  GEOMETRY 


XM291rb  Profile  &  Non  beam  Masses  Versus  Length  in  Meters,  (Total  Non  beam  Mass  of  1442  Kg,  or  3178  Ibm) 
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Figure  1  Output  Plot  of  M-File,  <geomf_XM29 1  .m>. 

The  geometry  of  the  XM291  gun  barrel  is  read  in  using  the  function  file,  <geomf_XM291.m>  as  described 
in  section  2.2.2.  The  plot  of  Figure  1  is  automatically  included  by  calling  the  file  with  the  plot  label  as  an 
input  variable. 

Some  of  the  features  of  Figure  1  are  worthy  of  comment.  The  top  plot  indicates  the  inner  and  outer  radii 
reflected  about  the  centerline.  This  is  particularly  useful  for  debugging  the  input  geometry  file,  especially 
for  a  geometty  file  with  as  many  detailed  entries  as  the  file  for  the  XM291.  Also  notice  in  this  top  plot 
that  the  black  region  towards  the  rear  of  the  barrel  indicates  the  distribution  of  the  extraneous  mass,  and 
that  the  dtle  includes  the  total  non-beam  mass  for  validation.  This  mass  is  kept  separate  from  the  beam 
linear  density  depicted  in  the  second  plot  with  the  total  beam  mass  indicated  in  its  title.  By  segregating 
the  two  densities,  the  non-beam  masses  do  not  obscure  the  validation  of  the  beam  density.  (If  the  two 
densities  were  combined,  the  second  plot  would  not  lend  as  much  qualitative  or  visual  validation  of  the 
computed  linear  densities.)  Finally,  the  third  plot  indicates  the  linear  distribution  of  beam  stiffiiess. 


El  from  Profile 


Linear  Density  from  Profile,  (Total  Mass  of  Beam  1450  Kg,  or  3198  Ibm) 
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4. 1 .3  FINITE  ELEMENT  MESH  GENERATION 


The  first  requirement  to  generate  the  finite 
element  mesh  is  to  specify  the  locations 
where  external  constraints  or  forces  are 
expected  to  interact  with  the  beam.  In  the 
case  at  hand,  the  barrel  is  to  be  constrained  at 
the  trunnion  location  and  forced  from  the 
elevation  mechanism  location.  Therefore, 
these  locations  need  to  be  finite  element  node 
locations  and  are  included  as  imposed  node 
locations  for  the  meshing  m-file, 
<fem_mesh.m>.  In  addition,  the  desired 
munber  of  elements  has  been  chosen  to  be 
seven.  A  relatively  small  number  was 
selected  to  facilitate  dynamic  analysis,  and  to 
keep  the  system  matrices  and  generalized 
coordinate  vectors  small  enougli  for  simple 
inspection  and  plot  labeling.  This 
information  is  combined  with  the  four  data 
vectors  generated  earlier  results  in  the 
meshing  of  Figure  2. 

Figure  2  depicts  the  meshing  metric  that  was 
developed  in  section  2.2.3.  The  purpose  of 
the  metric  was  to  evenly  divide  the  super 
elements,  between  the  imposed  node 
locations,  into  the  allotted  number  of 
elements.  The  imposed  node  locations  are 


XM291rb  Meshing  Metric  &  Node  Locations  Vs  Position 


Figure  2  Output  Plot  of  M-File,  <fem_mesh.m>. 


indicated  by  a  filled  circle  in  the  plot,  while  the  free  node  locations  are  indicated  by  an  empty  circle. 
(Beam  boundaries  — by  default —  are  imposed  node  locations.)  In  this  rather  simple  example,  only  the 
super  segment  after  the  elevation  mechanism  is  allotted  any  free  elements.  The  five  elements  within  the 
super  element  are  then  evenly  spaced  with  respect  to  the  metric. 


4. 1 .4  COMPUTATION  OF  THE  SYSTEM  MATRICES 


The  mass  and  stiffness  matrices  of  the  free-fi'ee  beam  are  computed  from  the  raw  data  vectors,  and  the 
coordinates  of  the  mesh  nodes  using  the  m-file,  <fem_form.m>  as  described  in  section  2.2.5  The 
constraint  of  the  trunnion  bearings  is  modeled  as  a  stiff  lateral  spring  (750,(X)0  Ibf/in)  with  no  rotational 
resistance  and  a  damping  value  equivalent  to  the  Rayleigh  stiffness  proportional  damping  given  below. 
The  generalize  coordinate  to  which  the  constraint  is  coupled  is  identified,  and  all  three  values  are 
integrated  into  a  one-by-three  external  constraint  data  matrix. 


The  free-free  beam  matrices  are  then  modified  to  incorporate  the  lumped  effects  of  the  coupled  rigid  body 
masses  discussed  in  sections  2.2.2  and  2.3.2.  The  Rayleigh  damping  is  then  computed  for  the  modified 
system  matrices  using  values  of  zero  for  a  and  10  ^  for  p.  Finally,  the  external  constraint  is  added.  This  is 
done  in  the  m-file,  <fem_lump.m>  as  described  in  section  2.5.  The  final  result  is  depicted  in  the  images  of 
the  mass  and  stiffness  matrices  in  Figure  3. 
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Image  of  Stiffness  Matrix,  K 
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Spy  Image  of  Nonzero  Mass  Matrix  Elements 
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Spy  Image  of  Nonzero  Stiffness  Matrix  Elements 


Figure  3  Image  of  System  Matrices  as  Plotted  by  the  M-File,  <XM291rb.m>,  Section  5. 


Figure  3  depicts  the  image  of  the  completed  system  mass  and  stiffness  matrices.  The  shaded  images 
indicate  the  locations  of  relatively  large  inertias  and  stiffness  (near  the  breech).  Since  many  non-uniform 
beams  are  tapered,  and  since  inadvertent  dimensional  scaling  of  rotational  versus  lateral  parameters 
occurs,  the  color  scale  of  the  images  may  obscure  the  distinction  between  zero  elements,  and  small 
elements.  To  address  this  issue,  the  non-zero  cells  of  the  matrix,  regardless  of  their  magnitude,  are 
illustrated  to  the  right  using  MATLAB®'s  <spy>  command.  [12]  This  verifies  the  cascading  construction 
of  both  system  matrices  from  four-by-four  elemental  matrices. 


4. 1 .5  UNDAMPED  EIGENVECTOR  AND  FREQUENCY  DETERMINATION 


The  undamped  second-order  eigenvectors  and  frequencies  are  computed  using  the  m-file,  <eigen_2o.m>. 
This  file  conducts  the  eigen  analysis  as  described  in  section  3.5.1.  The  resulting  eigenvectors  are  then 
plotted  using  the  m-file,  <beam_plot.m>,  as  described  in  section  3.5.8.  The  results  of  the  first  six  modes 
are  depicted  in  Figure  4. 
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XM291rb  Undamped  Mass-Normalized  Eigenvectors  and  Frequencies 


Axial  Position  (m)  Axial  Position  (m) 

Figure  4  Depiction  of  Undamped  Eigenvectors  Computed  by  <XM291rb.m>,  Section  6. 
4.1.6  DAMPED  MODE-SHAPE  AND  FREQUENCY  DETERMINATION 


The  damped  mode-shapes  and  frequencies  are  also  computed  using  the  m-file,  <eigen_2o.m>.  This  file 
conducts  the  damped  eigen  analysis  with  the  inclusion  of  the  damping  matrix  as  an  input  variable.  The 
results  of  the  first  six  bending  modes  are  depicted  in  Figure  5.  (The  rigid  body  mode  is  not  redisplayed, 
alAough  it  is  computed.)  The  last  mode-shape  appears  to  be  out  of  order.  Insight  as  to  the  cause  of  this 
will  be  made  later  in  section  4.1.8.  Note  that  it  is  a  good  practice  to  conduct  the  same  analysis  with  more 
elements  to  examine  if  the  mode  shapes,  within  the  frequency  band  of  interest,  change  in  character.  Finite 
element  modeling  of  higher  modes  improves  with  more  elements  (as  discussed  in  section  2.1.1  and 
demonstrated  in  section  4.4.2)  thus  providing  a  good  check  of  reduced  element  models. 
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XM291rb  Damped  Mass-Normalized  Bending  Mode-Shapes  and  Frequencies 

Bend_Mode_l,  19.1  IHz  Bend_Mode_4, 106.9Hz 


0246  0246 


Bend_Mode_2, 32.37Hz  Bend_Mode_5, 133Hz 


0246  0246 


Bend_Mode_3, 60.48Hz  Bend_Mode_6, 151.6Hz 


0246  0246 

Axial  Position  (m)  Axial  Position  (m) 

Figure  5  Depiction  of  Damped  Mode  Shapes  Computed  by  <XM29  lrb.m>.  Section  7. 

4. 1 .7  CONVERSION  TO  RRST-ORDER  STATE-SPACE 

Conversion  of  the  second-order  equations  of  motion  to  the  first-order  state-space  form  enables  the  use  of 
MATLAB®'s  library  of  dynamic  analysis  tools.  The  conversion  is  executed  by  the  m-file,  <fem2ss.m>, 
which  implements  equation  (28)  for  the  state-space  equations  of  motion  of  equation  (27).  The  resulting 
matrices  contain  some  zero  and  identity  sub-matrices  that  are  revealed  in  figure  6,  which  was  generated 
using  the  <spy>  command.  [12] 

Once  converted  to  state-space,  the  inclusion  of  irrelevant  input  and  output  variables  may  be  removed  using 
MATLAB®'s  <ssselect>  command.  [25]  It  is  particularly  helpful  to  reduce  the  multi-input,  multi-output 
(MIMO)  system  to  a  single  input,  single  output  (SISO)  system.  In  the  case  of  gun  dynamics,  a  relevant 
choice  for  a  SISO  system  would  be  the  elevation  mechanism  as  the  sole  input,  and  the  muzzle  pointing 
angle  as  the  sole  output.  This  is  executed  in  section  eight  of  the  m-file,  <XM291rb.m>. 
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4.1.8  POLE-ZERO  MAP 


First-Order,  Non-Zero,  System  Matrix  Entries 


Once  the  first-order  matrix  representation  of 
the  system  is  in  the  MATLAB®  work-space,  a 
pole-zero  map  may  be  constructed  to  provide 
graphical  insight  into  the  behavior  of  the 
system  using  MATLAB®'s  <pzmap> 
command.  [25] 

Figure  7  depicts  a  region  of  the  pole-zero  map 
of  the  system.  The  poles  are  indicated  by  x's, 
and  the  zeros  by  o's.  MATLAB®'s  <sgrid> 
command  [25]  was  used  to  generate  the  lines  of 
constant  natural  frequency,  and  critical 
damping  ratios  in  increments  of  twenty 
percent.  (The  zero  damping  ratio  is  collocated 
with  the  positive  and  negative  imaginary  axes, 
while  the  unity  ratio  is  collocated  with  the 
negative  real  axis.)  The  map  reveals  several 
important  properties  of  the  damped  system. 
First,  the  zeros  in  the  right  hand  plan 


A  matrix  B  matrix 


0  10  20  30  0  10 

nz  =  528  nz  =  256 


C  matrix  matrix 


nz  =  16 


nz  =  0 


demonstrate  that  system  is  a  non-minimum 
phase  system.  [26,  27]  Second,  the  effect  of 
stiffness  proportional  damping  is  more 


Figure  6  First-Order  System  Matrix  Population 
Computed  by  <XM291rb.m>,  Section  8. 


pronounced  in  the  higher  frequencies  as  can  be  seen  by  the  higher  damping  ratio's  of  the  higher  natural 
frequency  modes.  Third,  flexible  modes  beyond  the  sixth  undamped  flexible  mode  are  now  over  damped, 
and  their  poles  have  migrated  along  the  negative  real  axis.  Fourth,  the  single  rigid  body  mode  is 
represented  by  the  pole  on  the  origin.  Fifth,  the  effect  of  the  damping,  is  to  slide  the  flexible  poles  down 
the  constant  radii  of  natural  damping.  This  allows  the  correlation  of  damped  mode-shapes  to  their 
undamped  eigenvectors.  (This  explains  the  unusual  sequence  of  damped  mode-shapes  in  Figure  5.) 
Finally,  notice  that  the  flexible  poles  all  lay  on  the  locus  of  a  circle,  centered  on  the  negative  real  axis  at 
the  point  to  which  the  zeros,  and  over  damped  poles  seem  to  be  migrating  towards.  This  is  very 
reminiscent  of  root  locus  construction  and  could  provide  valuable  insight. 
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XM291rb  Open-Loop  Eigenvalues 


Figure  7  Pole-Zero  Map  Generated  by  the  M-File,  <XM291rb.m>,  Section  9. 

4. 1 .9  FREQUENCY  RESPONSE  BODE  DIAGRAM 

The  frequency  response  of  a  dynamic  system  indicates  the  steady-state  response,  y(t),  of  the  system  to  a 
sinusoidal  input,  u(i):  [25] 

u(t)  =  A  sin  (cut)  ... 

y(t)  =  fcAsin((i)t  +  (}))  '■ 


Classical  control  techniques  relied  heavily  on  these  techniques  because  the  Laplace  domain  was  the  best 
available  ine^s  to  conduct  dynamic  analysis  prior  to  the  introduction  of  state-space  techniques  in  the 
nineteen-sixties.  Frequency  response  analysis  complements  the  state-space  and  eigen  analysis  by 
providing  indications  of  stability,  in  addition  to  a  quantitative  and  qualitative  perspective. 


XM291rb  Elevation  Mechanism  to  Muzzle  Pointing  Angle  Bode  Plot 


Figure  8  Bode  Diagram  Generated  by  the  M-File,  <XM291rb.m>,  Section  10. 

Figure  8  is  a  Bode  Diagram  of  the  SISO  response  of  the  muzzle  pointing  angle  to  the  elevation 
mechanism.  It  consists  of  two  plots,  the  upper  relates  the  gain  of  the  system,  k  in  equation  (56),  to  the 
excitation  frequency,  o),  and  the  lower  plots  the  phase  lag,  <{),  to  the  frequency.  The  gain  is  represented  in 
decibels.  (A  decibel  is  related  to  the  gain  as:  dB  =  20  log,o(k).) 

Examination  of  the  upper  plot  indicates  that  the  response  is  greatest  at  the  first  mode,  followed  by  the 
second  mode,  and  then  tapers  off  to  a  very  small  response.  This  information  may  be  used  to  argue  that  the 
system  is  most  susceptible  to  disturbances  in  the  frequency  range  near  the  first  two  modes.  If  any 
modifications  are  contemplated  for  the  system,  it  would  be  highly  desirable  shift  this  frequency  response 
band  away  from  known  disturbance  sources.  In  the  case  of  tank  cannon,  disturbances  from  terrain  induced 
vibration  are  concentrated  at  the  low  end  of  the  spectrum.  (A  63,(X)0  Kg  M1A2  tank  [28]  with  any  viable 
suspension  makes  an  impressive  low-pass  filter.)  Therefore,  it  is  very  desirable  to  keep  the  fundamental 
modal  frequencies  as  high  as  possible. 
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4A..m  IMPULSE  RESPONSE 
OF  UNCONSTRAINED  BARREL 


The  response  of  the  muzzle  pointing 
angle  to  a  Newton  Second  impulse  at  the 
elevation  mechanism  may  be  obtained 
using  MATLAB®'s  <impulse>  command 
[25].  Since  this  system  contains  a  rigid 
body  mode,  the  net  motion  of  the  barrel 
drifts  away  from  the  initial  state  while 
the  flexible  modes  are  vibrating  about 
this  drift.  The  important  thing  to  notice 
in  Figure  9,  is  the  initial  transient  in  the 
response  before  the  gross  motion  of  the 
lower  frequency  modes  is  established. 

This  is  the  non-minimum  phase  effect 
discussed  in  section  4.1.8. 

4.2  FULLY  CONSTRAINED 
XM291 

It  is  important  to  realize  that  all  of  the  analysis  thus  far  has  been  conducted  on  a  barrel,  that  is  not  fully 
constrained.  This  analysis  lends  itself  to  the  design  of  the  elevation  mechanism  feedback  control,  where 
the  unconstrained  barrel  is  the  open-loop  plant.  In  reality,  the  feedback  controlled  elevation  mechanism  is 
used  to  point  the  barrel  to  the  desired  elevation.  In  the  lab,  the  barrel  is  mounted  in  a  stand  with  a  near 
rigid  bar  constraining  the  motion  of  the  barrel.  This  laboratory  bar,  may  be  modeled  as  a  stiff  lateral 
spring  with  no  rotational  restoring  force.  (This  model  also  emulates  a  high  gain  proportional  feedback 
controller.) 

Analysis  of  the  fully  constrained  XM291  is  executed  by  the  m-file  <XM291fc.m>.  This  file  mimics  the 
analysis  of  the  file  <XM291rb.m>  discussed  in  section  4.1  until  a  second  lateral  constraint  is  added  at  the 
location  of  the  elevation  mechanism.  The  constraint  value  assigned  to  it  is  two-thirds  the  spring  constant 
of  the  trunnion  constraint.  This  added  constraint  eliminates  the  rigid  body  motion  of  the  barrel,  thus 
providing  the  opportunity  to  examine  the  response  of  the  stable  structure. 

4.2. 1  DAMPED  MODE-SHAPE  AND  FREQUENCY  DETERMINATION 

The  damped  mode-shapes  are  again  computed  using  the  m-file  <eigen_2o.m>  in  section  6  of  the  script  file 
<XM291rb.m>.  The  first  modes  are  depicted  in  figure  10.  The  change  in  the  modes  from  figure  5  are 
worthy  of  a  couple  comments. 


X  10’*  SISO  Unit  Impulse  Response 


Time  After  Newton-Second  Impulse  at  Elevation  Mechanism  (sec) 
Figure  9  Impulse  Response  Generated  by  the  M-File, 
XM291rb.m,  Section  11. 
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The  first  bending  mode  of  the  constrained  model  exhibits 
the  classic,  quarter  wave  cantilevered  deflection.  This 
demonstrates  that  the  elastic  constraints  are  quite  stiff 
relative  to  the  barrel,  and  have  successfully  introduced  a 
new  mode  of  vibration. 


XM291fc  Damped  Mode-Shapes 


It  is  also  interesting  to  note  that  the  other  modes  appear  to 
be  only  slight  modifications  of  the  unconstrained  modes; 
with  the  differences  becoming  less  pronounced  at  the  higher 
frequencies.  O.i 

4.2.2  BODE  DIAGRAM 


After  the  computation  of  the  new  finite  element  matrices, 
the  first-order  state  space  conversion  is  effected  as  in 
section  4.1.7.  The  frequency  response  of  the  new  system  is 
computed  in  section  8  of  the  m-file  <XM291fc.m>  and 
displayed  in  figure  1 1.  It  has  been  altered  appreciably  from 
the  unconstrained  case  to  reflect  the  introduction  of  the  new 
— low  frequency —  mode.  Unlike  the  Bode  plot  of  figure  8, 
this  plot  was  computed  for  input  forcing  at  the  trunnion. 
This  provides  a  model  of  the  gun  subject  to  disturbances 
introduced  at  the  trunnion,  and  controlled  by  the  restoration 
force  at  the  elevation  mechanism.  In  this  case,  the 
restoration  force  merely  models  a  linear  spring. 
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Axial  Position  (m) 

Figure  10  Depiction  of  Mode  Shapes  for 
Fully  Constrained  XM291. 
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Frennencv 


Figure  11  Bode  Diagram  Generated  by  the  M-file,  <XM291fc.m>,  Seetion  8. 
4.2.3  IMPULSE  RESPONSE 


The  impulse  response  of  the  constrained  barrel  is 
depicted  in  figure  1 2.  The  lack  of  a  rigid  body 
mode  prevents  the  response  from  drifting  off  to 
infinity  as  occurred  in  figure  9.  Examination  of 
figure  12  reveals  that  several  modes,  of  different 
frequencies,  are  oscillating  about  the  equilibrium 
point  of  zero.  The  higher  frequencies, 
distinguishable  by  their  short  periods,  clearly 
dissipate  more  quickly  than  the  low  frequency 
fundamental  mode.  The  fundamental  mode,  near 
seven  Hertz,  dominates  the  response  after  a 
quarter  of  a  second.  This  illustrates  the  effect  of 
the  stiffness  proportional  damping  employed  as 
discussed  in  sections  2.4  and  4. 1 .4;  the  higher 
frequencies  are  penalized  more  than  the  lower 
frequencies. 

Also  note  that  the  non-minimum  phase  effect 
discussed  in  sections  4.1.8  and  4.1.10  is  clearly 
present  in  the  constrained  barrel. 


X  10"‘  SISO  Fully  Constrained  Impulse  Response 


Time  After  Newton-Second  Impulse  at  Trunion  (sec) 
Figure  12  Impulse  Response  Generated  by  the  M- 
file,  <XM291fc.m>,  Section  9. 
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0.9902  h" 


4.2.4  STEP  RESPONSE  ^  2q-8  SISO  Fully  Constrained  Step  Response 

*  '  I  . I  . . . . 

Since  the  barrel  is  now  fully  constrained,  a  3.3055  •  a 

step  response  simulation  may  be  executed  as  \  . 

is  done  in  section  10  of  <XM291fc.m>.  M  \  f\  ^  _ 

The  step  response  simulates  the  effect  of  a.-,  \  \  /  \  f 

sudden,  but  constant,  application  of  a  one  q  ^^2  - 1 _ \. _ / _ \ _ / _ \ _ .L _ 

Newton  vertical  force  at  the  trunnion  |  j  \  /  \  J  \  / 

location.  This  is  very  similar  to  the  effect  of  g  0  ^  . . \  ■  ■/ . \  •  ■/ . \  . 

an  impulse,  with  two  major  differences.  ^  I  \  /  V/  ^ 

^  I  V  X  lO  ’  Initial  Response  Close-Up 

First,  the  step  response  results  in  a  static  I  y  ^  nT  1 

offset.  In  the  case  of  the  impulse  response  S  “1-8354  q  ^ . 

of  a  fully  constrained  system,  the  system  '^-2-  \ 

eventually  returns  to  its  equilibrium  state  _4 1 _ _ _ j 

which  is  the  same  as  the  initial  state.  O.ooo  0.005  o.oio 

However,  the  step  response,  invokes  a  I _ i _ , _ (sec) _ , _ 

constant  loading  that  results  in  a  new  0  O.l  0.2  0.3  0.4  0.5 

equilibrium  state,  that  may  be  calculated  via  Newton  Applied  at  Trunion  (sec) 

the  final  value  theorem.  [26, 27]  This  Figure  13  Step  Response  Generated  by  <XM291fc.m>, 
method  was  used  to  plot  the  dot-dashed  line  Section  10. 
of  the  new  equilibrium  deflection.  It  was 

evaluated  in  section  10  of  the  m-file,  <XM291fc.m>,  by  first  converting  the  truncated  state-space  system 
to  its  transfer  function  equivalent  using  MATLAB®'s  <ss2tf>  command  [25],  The  Laplace  “j”  operator 
was  then  effectively  set  to  zero  by  only  taking  the  constant  coefficients  of  the  numerator  and  denominator. 
(This  method  does  not  solve  for  limits,  so  it  will  fail  when  the  denominator  coefficient  is  zero.  A  <while> 
loop  [12]  could  be  invoked  to  seek  the  first  non-zero  denominator  coefficient,  and  then  compute  the  limit 
more  reliably.) 


0.000  0.005  0.010 

. _  (sec) _ ^ _ 

0.1  0.2  0.3  0.4  0.5 

Time  After  Newton  Applied  at  Trunion  (sec) 

Step  Response  Generated  by  <XM291fc.m>, 


Second,  relative  to  the  impulse  response  of  figure  12,  the  higher  frequency  content  is  low.  The  reason  for 
this  is  that  a  time  domain  impulse  results  in  a  flat  frequency  response.  (A  cut  off  does  occur  in  physical 
systems  that  is  a  function  of  the  impact  mass,  and  the  effective  resilience  of  the  impactor.  [29])  However, 
the  frequency  content  of  the  step  input  is:  [30] 


^  H{t) )  =  hif) 


Where: 


^  is  the  Fourier  Transform 
H  is  the  Heaviside  Unit  Step  Function 
6  is  the  Dirac  Impulse  Function 
t  is  the  Time  Domain  Variable 
f  is  the  Frequency  Domain  Variable 
i  is 


Clearly,  the  step  input  excites  less  response  in  the  higher  frequencies. 
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4.2.5  STATIC  GRAVITY  DEFLECTION 


Gravity  loading  exerts  a  distributed  force  along  the  span  of  the  XM291  barrel  that  is  proportional  to  its 
linear  density.  In  fact,  the  gravity  force  vector,  to  the  resolution  of  the  beam  geometry,  is  the  acceleration 
of  gravity  multiplied  by  the  total  linear  density  of  the  barrel  and  any  extraneous  mass  that  is  attached  to  it 
(assuming  that  the  undeformed  barrel  is  horizontal).  This  input  vector  is  computed  in  section  1 1  of 
<XM291fc.m>,  and  used  by  the  m-file,  <fem_force.m>,  developed  in  sections  2.1.2  and  2.2.6.  The  result 
is  a  system  force  vector  that  is  compatible  with  the  finite  element  formulation  that  approximates  the 
distributed  lateral  force  of  gravity  by  equivalent  lateral  forces  at  the  nodes,  and  moments  at  the  nodes  to 
approximate  the  interior  loading  of  the  beam  elements. 

This  loading  provides  the  opportunity  to  validate  the  equivalence  of  the  state-space  model  of  (27)  with  the 
second  order  model  of  (6)  and  (20).  It  further  provides  for  a  demonstration  of  Ae  convergence  of  the  time 
simulation  provided  by  MATLAB®'s  <lsim>  command  [25] .  Finally,  the  validity  of  the  final  value 
theorem  approximation  using  MATLAB®'s  <ss2tf>  command  [25],  as  was  done  in  section  4.2.4,  may  be 
demonstrated  in  a  more  complicated  context. 

Figure  (14)  is  the  juxtaposition  of  the  solution 
of  the  static  deflection  problem  arrived  at  from 
three  wholly  different  principles.  No 
perceptible  difference  occurs  in  the  plots, 
validating  their  similarity.  Numerically,  small 
— but  not  insignificant —  differences  do  exist. 

The  first  method  used  was  a  direct  simulation 
of  the  response  of  the  system  to  the 
instantaneous  application  of  gravity  loading 
for  a  relatively  long  period  of  time.  A  period 
sufficient  for  the  motion  to  essentially  cease 
(four  seconds).  This  motion  provided  the 
opportunity  to  demonstrate  the  potential  for 
animation  of  the  response  in  section  12  of  the 
m-file  <XM291fc.m>. 

The  second  method  was  to  invoke  the  final  value  theorem  by  assembling  a  matrix  of  each  input/output  pair 
combination  using  two  nested  loops.  At  each  pair,  the  MIMO  state-space  system  was  truncated  to  SISO 
system  of  the  input/output  pair.  This  system  was  converted  to  its  transfer  function  equivalent  using 
MATLAB®'s  <ss2tf>  command  [25],  and  then  evaluated  with  the  Laplace  “s”  operator  set  to  zero  as  was 
done  in  the  previous  section.  This  results  in  a  matrix  that  transforms  the  generalized  force  vector,  to  the 
equilibrium  generalized  coordinate  vector.  This  operation  was  executed  in  section  13  of  the  m-file 
<XM291fc.m>. 

The  third  method  used  was  to  recognize  that  at  equilibrium,  the  time  derivatives  of  the  generalized 
coordinates  are  zero.  Thus,  the  second-order  equations  of  motion,  (6)  and  (20),  can  be  simplified.  The 
resulting  solution  for  the  deflection  is  the  inverse  of  the  stiffness  matrix  multiplied  by  the  generalized 
force  vector.  This  provides  some  insight  into  the  relationship  between  the  invertibility  of  the  stiffness 
matrix,  and  the  constraint  of  the  beam  that  was  elaborated  on  in  section  3.4.1. 


x  jq-3  XM291fc  Static  Gravity  Deflection 


11  to  14  of<XM291fc.m>. 
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4.3  HYBRID  60MM  TEST  GUN 

A  60mm  test  gun  is  currently  being  modified  to  support  an  electromagnetic  accelerator  at  its  muzzle  end. 
[31]  The  accelerator  unit  is  quite  massive  relative  to  the  gun,  and  the  dynamic  effects  of  the 
electromagnetic  reactive  loading  on  such  systems  is  a  concern  from  the  perspective  of  accuracy.  [32] 
Finite  element  analysis  of  the  barrel  was  conducted  with,  and  without  the  muzzle  accelerator,  to  reveal  the 
mode-shapes  of  the  system.  These  mode-shapes  were  compared  with  mode-shapes  computed  using  the 
Uniform  Segment  Method  (USM)  discussed  in  section  1.  [33] 

4.3.1  BEAM  GEOMETRY 

The  geometry  of  the  60mm  test  gun,  with  the  extraneous  muzzle  accelerator  masses  is  read  in  using  the 
function  file  <geomf_hybrid.m>  in  a  manner  analogous  to  section  4.1.2.  The  plot  of  figure  15  reveals  the 
simplified  geometry  of  the  test  barrel,  and  the  rather  large  extraneous  mass  that  the  muzzle  accelerator 
imposes  on  the  muzzle  end  of  the  barrel.  Since  the  muzzle  accelerator  is  both  relatively  short  and  stiff,  it 
was  not  modeled  as  a  beam  element  but  rather  as  a  series  of  rigid  body  masses  applied  at  the  muzzle  end 
using  the  technique  developed  in  section  2.3.2. 


Hybrid  60mm  Profile  &  Non  beam  Masses  Versus  Length  in  Meters,  (Total  Non  beam  Mass  of  87.17  Kg,  or  192.2  Ibm) 
0.05 
E  0 
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Linear  Density  from  Profile,  (Total  Mass  of  Beam  1 19.8  Kg,  or  264.2  Ibm) 
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Figure  15  Output  Plot  of  the  M-file,  <geomf_hybrid.m>. 
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43.2  UNDAMPED  MODE-SHAPE  COMPARISON 

The  mode-shapes  of  the  free-free  beam  with  out  the  accelerator  and  breech  attached  is  shown  in  figure  16, 
juxtaposed  against  the  mode-shapes  computed  using  the  USM.  [33]  For  reasons  of  clarity  and 
compatibility  with  the  available  USM  eigenvectors,  the  mode-shapes  are  normalized  to  a  maximum 
absolute  value  of  one,  and  plotted  against  a  normalized  axis  from  zero  to  one.  The  similarity  of  eigen 
analysis  of  the  two  methods  validates  them. 

It  is  worth  noting  that  one  of  the  key  issues  to  using  the  USM  is  to  reduce  the  model  to  a  minimum  number 
of  elements  that  are  analytically  treated  as  uniform  beam  segments.  Only  three  elements  were  employed 
by  the  USM  to  generate  the  eigenvectors  of  figure  16.  Since  the  barrel  essentially  consists  of  a  prismatic 
section  beyond  the  taper  at  one  meter,  the  USM  and  high  density  finite  element  eigenvectors  very  closely 
match  beyond  the  taper.  The  discrepancies  in  the  higher  modes  behind  the  taper  may  largely  be  attributed 
to  the  over  simplification  of  the  USM's  first  two  elements. 


60mm  Barrel  Eigenvectors  and  Frequencies  (:FEM:,  -USM-) 


Bend_Mode_l ,  :FEM  27.48Hz;,  -USM  26.4  Hz-  Bend_Mode_4,  :FEM  338.2Hz:,  -USM  329.5  Hz- 


Bend_Mode_2,  :FEM  84.5Hz:,  -USM  83.1  Hz-  Bend_Mode_5.  :FEM  519.3Hz:,  -USM  478.2  Hz- 


Bend_Mode_3,  :FEM  188Hz:,  -USM  187.4  Hz-  Bend_Mode_6,  :FEM  699Hz:,  -USM  656.4  Hz- 


Figure  16  Hybrid  Barrel  Mode  Shape  Comparison  Computed  by  <hybrid60.m>,  Section  7. 
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4.3.3  GRAVITY  DEFLECTION  OF  HYBRID  GUN  AS  SUSPENDED 


The  deflections  of  the  hybrid  gun,  as  suspended 
in  the  firing  range,  is  of  interest  and  shown  in 
figure  17.  For  the  sake  of  clarity,  the  stiffness 
of  the  hangers  was  intentionally  reduced  to 
better  depict  the  curvature  of  the  barrel  in 
relation  to  its  suspension  points. 

This  plot  also  reveals  that  many  elements  were 
used  to  generate  the  finite  element  model.  (74 
elements  in  total.)  This  is  inferred  from  the  x's 
plotted  along  the  deformed  centerline  of  the 
beam. 


JO  ^  Hybrid  60mm  Static  Gravity  Deflection 


The  deflection  was  computed  using  the  third 
method  of  section  4.2.5;  inversion  of  the 
stiffness  matrix  multiplied  by  the  force  vector. 


Figure  17 

<hybrid60.m>. 


Gravity  Droop  Computed  in  Section  12  of 


4.4  VALIDATION  VIA  COMPARISON  WITH  ANALYTIC  CASES 


4.4.1  NICHOLSON  SOLUTION  TO  SPECIAL  NON-UNEFORM  BEAMS 

Further  validation  of  the  modeling  method  developed  in  this  report  may  be  achieved  by  comparing  the 
finite  element  approximations  to  the  fundamental  frequency  of  non-uniform  beams  of  special  cross- 
sections  that  have  been  analytically  investigated  with  their  analytic  counterpart. 
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Free-Free  Beam,  First  Half:  y  =  x''(l/4)  FEM  Convergence  to  f  =  0.5536 


Axial  Position  Number  of  Elements 


Free-Free  Beam,  First  Half:  y  =  FEM  Convergence  to  f  =  0.6528 


0  0.5  1  1.5  2  0  5  10  15  20 


Axial  Position  Number  of  Elements 


Free-Free  Beam,  First  Half:  y  =  x'^(3/4)  FEM  Convergence  to  f  =  0.7401 


Axial  Position  Number  of  Elements 


Free-Free  Beam,  First  Half:  y  =  x  FEM  Convergence  to  f  =  0.8095 


Axial  Position  Number  of  Elements 


Figure  18  Comparison  of  Fundamental  Frequencies  to  Analytic  Solution, 

Such  analytic  computations  were  computed  by  J.  W.  Nicholson  (in  the  Proc.  Roy.  Soc.  (London),  93, 
1917,  p.  506).  [34]  Figure  18  depicts  the  geometry  of  the  beams  analyzed,  lists  the  analytic  solution  for 
unity  values  of  density  and  elasticity,  and  plots  the  relative  finite  element  error  in  the  computation  of 
fundamental  frequencies  versus  the  number  of  finite  elements.  The  computations  were  executed  in  the  m- 
file  <Nicholson.m>.  (Note:  due  to  the  zero  taper  of  the  beams  at  either  end,  numerical  accuracy  is 
decreased  due  to  the  extreme  variation  in  the  inertial  and  stiffness  matrix  diagonal  elements.  Use  of  the 
meshing  file  <fem_mesh.m>  only  exacerbated  the  problem,  so  it  was  not  used.) 
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4.4.2  UNIFORM  BEAM  SOLUTION 


The  solution  of  the  transverse  bending  beam  equation  using  the  Euler-Bemoulli  approximation  results  in 
the  following  homogeneous  differential  equation  of  motion:  [6, 15] 


•Ji 

dx^ 


Elix) 


d'^y{x,t) 

dx^ 


P(jc) 


dt^ 


0  <  x  <  L 


(58) 


This  can  be  simplified  using  the  separation  of  variables  technique  as  in  (29)  and  (43)  by  assuming  a 
sinusoidal  form  of  the  solution  for  F(t):  [6,  15] 


y(x,t)  =  Y(x)F0) 

^  ^y{x,t)  ^ 

dt^ 


where  o)  is  the  frequency  of  F(f) 


(59) 


Finally,  in  the  case  of  uniform  beams,  EI(x)  and  p(x)  are  constants: 


Ji 

dx'^ 


EI(x) 


ci^Y(x) 

dx^ 

d*Y(xj 

dx^ 


=  co2p(;c)y(A:) 


CO" 


Y(x)  =  0 


(60) 


where:  =  — 


The  spatial  solution  admits  functions  of  the  form,  Y(x)  =  e*".  This  leads  to  the  general  solution:  [15] 

Y{x)  =  Cj{cos(kx)  +  cosh(fct))  +  C2(cos(fcc)  -  cosh(b:)) 

+  C3(sin(Uc)  +  sinhikx))  +  ^(sinCfcc)  -  sinh(/tt)) 


where  k 


CO 


(61) 


Where  k,  C,,  Q,  C3,  and  C4  are  undetermined  constants.  The  boundary  conditions  for  a  free-free  beam 
imply  that  both  the  moment  and  shear  forces  vanish  at  the  ends  of  the  beam  (x  =  0  and  x  =  L).  This  further 
implies  that  the  second  and  third  spatial  derivatives  of  Y(x)  are  zero  at  the  ends  of  the  beam  respectively. 
Using  the  assumed  form  for  the  spatial  solution  of  (61),  the  following  four  boundary  conditions  may  be 
applied: 
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dx^ 

d^Yjx) 

dx^ 

d^Yjx) 

dx^ 


=  -2C2/t^  =  0  -^^L-o  =  =  0 

dx^ 

=  Cj(-cos(/:L)+cosh(/:L))/:^  +  C2(-cos(kL)  -cosh(kL))k^ 
+  C^i  -sin(/;L)  +  smh(kL))k^  +  C^i  -sin(^L)  -  sinh(/;L))^^ 
=  Cj(  sin(/fcL)  +  sinh(;tL))/:^  +  C2(  sin(^L)  -  sinh(^L))^^ 
+  C2{-cos(kL)+cosh(kL))k^  +  C^{-cos(kL)-cosh(kL))k^ 


=  0 

=  0 


(62) 


From  (62)  it  is  clear  that  Cj  and  C4  are  zero.  Solving  for  Ci  and  C3: 


( -cos(A:L)  +  cosh(fcL) ) 

(  -sin(A:L) +sinh(^L)  ) 

V 

1 - 

0 

(  sin(^L)  +  smh(kL)  ) 

( -cos(^L) +cosh(/cL) ) 

A 

.  ^3 

0 

(63)  is  an  eigenvalue  equation.  The  valid  set  of  eigenvalues  satisfies  the  equation  formed  by  setting  the 
determinate  to  zero.  (The  trigonometry  identities  of  sin^  +  cos^  =  1  and  sinh^  +  cosh^  =  1  are  required  for 
the  simplified  form  below  that  was  evaluated  using  the  <simple>  and  <determ>  commands.  [13]): 


( -cosikL)  +cosh(A:L) )  (  -sin(A:L)  +sinh(^L)  ) 
(  sin(^L)  +smh(kL)  )  ( -cos(kL)  +cosh(^L) ) 


=  2(1  -  cos(kL)cosh(kL))  =  0 


(64) 


An  infinity  of  solutions  exist  to  (64),  these  correspond  to  the  modal  frequencies.  In  the  context  of  finite 
element  analysis,  this  infinity  of  solutions  may  be  thought  of  as  the  limit  of  breaking  the  beam  up  into  an 
infinite  number  of  infinitesimal  segments  as  was  expressed  by  Simpson's  hypothesis  in  section  2.1.  [8]  As 
in  the  spatially  discretized  case,  the  higher  modes  are  physically  subject  to  disproportionately  higher 
damping  ratios,  and  are  difficult  to  excite  via  mechanical  systems.  For  these  reasons,  at  some 
— application  specific —  cut-off  frequency,  the  higher  modes  may  be  determined  to  have  a  negligible 
affect  on  the  dynamic  response  of  the  system  in  the  operating  range  of  interest.  (In  the  case  of  gun 
systems,  it  has  been  argued  that  this  cut-off  would  occur  at  the  sixth  flexible  mode.  [3]) 

The  mode-shape  of  any  modal  frequency  may  be  determined  by  solving  (63)  using  the  frequency  solution 
of  (64).  This  could  be  done  assuming  a  value  of  unity  for  C3 ,  and  solving  for  C,  using  the  second  row  of 
(63).  This  completes  all  four  unknown  constants  in  (61).  For  the  non-dimensional  case,  E,  I,  p,  and  L  are 
all  unity,  with  0  <  x  <  1.  This  results  in  the  following  mode  shape  solution: 


49 


Finite  Element  Convergence  to  Mode  Frequencies 


The  results  of  equations  (64)  and  (65)  were 
implemented  in  <uniform.m>.  The  formation  of 
a  function  file  <ubeameig.m>  was  required  to 
define  the  eigenvalue  function  of  (64)  to 
facilitate  the  use  of  MATLAB*'s  <fzero>  [12] 
root  finding  function.  The  eigenvalues  were  then 
used  to  define  the  mode-shapes  of  (65).  The 
analytic  results  were  then  compared  with  finite 
element  modeling  of  a  normalized  beam.  The 
convergence  depicted  by  figure  19  demonstrates 
that  the  lower  modes  converge  faster  than  the 
higher  modes. 

Figure  20  is  a  plot  of  the  estimated  mode-shapes 
versus  the  analytic  solution.  Two  finite  element 
approximations  are  shown.  The  first  employed  a 
mere  three  elements  in  its  approximation  of  the 
beam.  (Note  from  figure  19,  that  the  three 
element  approximation  is  the  lowest  number  of 
elements  that  will  approximate  the  first  six 
bending  modes.) 


Figure  19  Finite  Element  Convergence  to  Analytic  Th®  second  approximation  used  twenty  finite 
Frequencies.  elements.  At  this  resolution,  the  dotted  line  that 

represents  the  high  resolution  finite  element 

approximation  is  coincident  and  indistinguishable  from  the  solid  line  that  represents  the  analytic  solution 
for  all  six  modes  displayed. 
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Uniform  Beam  Eigenvectors  and  Frequencies 


Bending  Mode  1 ,  Analytic  3.561  Hz 


Bending  Mode  4,  Analytic  31.81  Hz 


Bending  Mode  2,  Analytic  9.816  Hz 


Bending  Mode  5,  Analytic  47.52  Hz 


Bending  Mode  3,  Analytic  19.24  Hz 


Bending  Mode  6,  Analytic  66.37  Hz 


Figure  20  Juxtaposition  of  FEM  Approximations  and  the  Analytic  Mode-Shapes. 


5  CONCLUSIONS 


This  report  has  documented  the  development  of  finite  element  modeling  of  non-uniform  beam  dynamics 
within  the  MATLAB®  software  environment.  Several  objectives  have  been  achieved.  First,  the  report  may 
serve  as  a  detailed  users  guide  for  others  who  may  wish  to  use  the  software  developed  within  this  report. 
Second,  the  principles  behind  the  mathematical  modeling  have  largely  been  laid  down  in  detail,  so  that  the 
reader  may  understand  why  the  modeling  approach  works.  A  large  variety  of  references  are  cited  to  allow 
the  interested  reader  to  dig  deeper  in  this  regard.  Third,  several  demonstrations  of  the  utility  of  working 
within  MATLAB®  are  provided  to  illustrate  some  of  the  powerful  analysis  tools  that  have  been  enabled. 
Fourth,  several  case-studies  have  been  conducted  to  demonstrate  how  the  software  is  used,  and  to 
document  some  of  the  results  of  the  analysis  that  justified  the  development  of  this  code.  Finally,  the 
results  of  the  modeling  developed  has  been  compared  with  the  results  of  analytic  methods,  validating  the 
accuracy  of  the  approach  developed  in  this  effort. 
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6  APPENDIX 


<Niclidsca3Jn> 

1  9o  Nicholson  jn  ->  A  working  script  M-file  to  execute  analyses  of  noo- 

2  %  unifonn  beams  as  investigated  by  J .  W.  Nichdsoii 

3  %  (in  the  Proc.  Roy.  Soc.  (London).  93, 1917,  p.  506)  and  communicated  by 

4  %  Timoshenko,  Vibration  Problems  in  Engineering,  p  393  of  3rd,  and  p  473 

5  %  of  5th  edition. 

6  %  o  Oeated  09  January  1996  by  Eric  Katlie. 

7  %  Benct  Labs,  Watervliet  Arsenal,  NY  12189-4050  <ckatho@pica4UTnyjnil> 

8  %  ^'^'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

9 

10  % _ 

11  %  Section  (1) 

12  %  Con^jutc  tqjproximatioos  of  tlie  beam  geometry  for  the  five  eases  listed 

13  %  inTimoah<iko.  y  =  a*x^  where  m  *  0, 1/4,  3/4, 1.  Also 

14  %  confute  analytic  fimdamcnial  fiequcncics. 

15  9b  DEFINE:  pJot_on,  prmt_an,  tlabel,  spatial,  Iden,  lEI,  Inbden,  Mcxtl, 

16  9b  Mextr,  gm. 

17  % . 

18  %  Set  plot  and  print  flags  to  1  to  enable,  zero  to  disable . 

19  plot_on  =  l: 

20  prinl_on  =  0; 

21  % 

22  if  prin:_on  =  1 

23  plot^on  =  1 ;  %  Qearly,  to  prim,  tlic  plot  Dag  must  be  enabled. 

24  end 

25  % 

26  %  Define  the  sanq^Ied  radius  vectors  as  tlie  funedon  of  a,  x,  and  m. 

27  % 

28  Ul; 

29  a  =  l; 

30  m  =:  [1/4  H  3/41]': 

31  nm  =  length(m); 

32  x  =  (1:1001 )'A  001; 

33  r  =  2cros(200 1  ,nm) ; 

34  forI  =  l:nm 

35  y  =  a*x.^m(I); 

36  r(l:1001.i)  =  y: 

37  r(l  002:2001  ,i)  =  flipud(y(2:l  001 ));%  Leaves  one  max  value  @  1 . 

38  end 

39  % 

40  9b  Set  material  properties  to  unitv. 

41  % 

42  rho  =  1 ; 

43  E  =  :; 

44  9b 

45  %  Read  in  alpha  values  for  the  five  cases  and  compute 

46  9b  the  analytic  frequencies. 

47  9b 

48  alpha  =  [6.957  8.203  9.300 10.173]'; 

49  f  =  alpha '*max(y)/(4'»pi'*]A2)*sqrt(E/rho); 

50  9b 

51  9b _ _ _ 

52  %  Section  (2) 

53  9b 

54  if  plot^on  ~  1 

55  figure(l) 

56  dg 

57  sct(gcf,'PapcrOrieDtation‘, 'portrait');  %  Hiis  series  of  commands  configures 

58  8ct(gcf,PapcrUnits', ’inches');  %  the  plot  window  to  effectively 

59  sct(gcf,'PaperPosition',[l  1  6.5  6.5]);  %  te  incorporated  into  a  report. 

60  set(gcf, Units' .'inches', 'position', get(gcf,’PapcrPosition')); 

61  set(gcf,'DefaultAxcsFoiitSizc',10): 

62  9b 

63  forI  =  l:ran 

64  spatial  =[x;l+x(l;1000)]: 

65  lden  =  rho*pi*(K:.l)-^2); 

66  lEI  =  E*(r(:,I).M)*pi/4; 

67  Inbden  =zerQs(sizc(]den)); 

68  gm  =  r(:,I); 

69  subploi(nm,2,(l+2*(M))) 

70  ploispatial,gm,'k‘,spalial,-gm,'k') 

71  [num,den]  =  rat(m(I)); 

72  if  den  >  1 

73  mslr  =  f’X'  iiu2str<num) '/  int2str(dcn) ')']; 

74  else 

75  if  num  =  1 

76  mstr  =[]; 

77  else 

78  mslr  =  [''''  inl2str<num)]; 

79  end 

80  end 

81  titleCCFrce-Frcc  Beam.  First  Half: ' ... 


82  'y  =  x'  mstr  ]) 

83  xlabclC  Axial  Position') 

84  yltbcl('Radius') 

85  axis({-0.1  2.1  -1.25  1.25]) 

86  shrink  =  0.5; 

87  pos  =  gDt(gca,'position');  9b  This  is  in  normalized  coordinates 

88  po8(2)=pos(2)  +  po:<4)*(shrink/2);9b  Raise  the  subplot  by  the  saved  height 

89  pos(4)=p08(4)*(l -shrink);  9b  Shrink  the  height  by  a  shrink  frictor. 

90  8et(gcs,‘positiaD‘,pos); 

91  9b 

92  for  j  =  1:20 

93  nccrd  =  (l:j)'/j: 

94  ncord=!ll;round(2001*ncord)); 

95  lMfcm,Kf(sm]  *  fcin_fomi(^atial4den4EI,lnbdcnjicord): 

96  {ptu,fvii,risb]  =cigen_2o(Mfcm,KfDm);%  Compute,  undamped  eigen  frequencies. 

97  ffemfi  j) « tbs(fvn(3));9b  Because  of  the  poorly  conditioned  ends,  email 

98  9b  imaginary  content  is  common. 

99  end 

100  penor  =  (flem(I,:)  -  f(I))/r{I)*100:%  Compute  percent  error. 

101  subplot(nm,2,(2*I)) 

102  plot(perror) 

103  hold  on 

104  slcmfpcirar) 

105  hold  off 

106  title(['FEM  Convergence  to  f  = '  num2str<f(I))]) 

1 07  xlabelCNumber  of  Elements') 

108  ylabclCgb  Emr') 

109  pos  =  getfgca.’posidon’);  9b  This  is  in  normalized  coordinates 

110  pos(2)=pos(2)  +  pos(4)*(8hrmk/2);9b  Raise  the  lubjdot  by  the  saved  height. 

11 1  pos(4)=^s(4)*(l-shrink);  %  Shrink  the  height  by  a  shrink  &ctor. 

112  8ct(gca, ‘position' ,pos); 

113  end 

114  subtitlcCComparisan  of  Fundamental  M  ods  to  Analytic  S  olution’) 

115  end 

116  9b 

117  ifprint_on=Kl 

118  print  -deps  figl8.ps 

119  end 

120  9b _ 

121  9b  Convicted: 

122  9b . . 

<XM291fcjn> 

1  9b  XM291fcjn  ->  A  working  script  M-file  to  execute  analyses  of  a  fully 

2  %  constrained  XM291  using  the  finite;  element  formulation  and  dynamics 

3  9b  analysis  functions  defined  within  the  subdirectory,  bcam_fBrn/. 

4  %  o  Created  24  October  1995 -08  January  1996  by  ErkKathe. 

5  9b  Benet  Labs,  Watervliet  Arsenal,  NY  12189-4050  <ek8tbe(§^kxuannyunil> 

6  %  ‘^^'^^'^AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/VAAAAAAAAA 

7 

8  9b _ _ _ _ _ _ 

9  %  Section  (1) 

10  %  Set  the  plot  and  print  flags  on  or  off,  nm  the  gcoraetry 

11  %  m-fik,  and  create  a  plot  label. 

12  9b  DEFINE;  plot^oo,  print_on,  tlabel,  spatial,  Idcn,  lEI,  Inbden,  XfcxD, 

13  9b  Mextr,  gm. 

14  9b . . 

15  9b 

16  9b  Set  plot  and  print  flags  to  1  to  enable,  zero  to  disable. 

17  plot_on  =  l: 

18  print_on=s0; 

19  % 

20  if  jmnt_on  =  1 

21  plot_on  =  1 ;  9b  Qearly,  to  print,  tlie  plot  flag  must  be  enabled. 

22  end 

23  9b 

24  tlabel  =  'XM291  fc';9b  tlabel  ->  Enables  plotting. 

25  % 

26  9b  Load  in  geometry  data  as  in  XM291rbjn: 

27  [spatia],  Idbn,  lEI,  Inbden,  Mextl,  Mextr,  gm]  =  geomf_XM291 ; 

28  % 

29  % _ _ _ _ _ _ 

30  %  Section  (2) 

31  9b  Define  barrel  constraint  locations,  number  of  elements,  and  create 

32  9b  clement  mesh  vector. 

33  9b  DEFINE:  snlv,  ncord, 

34  9b  USE:  spatial,  Idcn,  lEI,  bxbdcn,  snlv,  tlabel. 

35  9b . 

36  % 

37  clmcchloc  =  0.220; 9b  (m)  Mid-s}»n  of  breech  ring  threads  qd  barrel. 

38  truimionloc  =  38.9  •(0.02^);9b  iii(m/m)  Yoke  position  as  in  gBomf_XM291 

39  %  line  462. 
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soT.v  =  IjuliUBcislo^n,:  lrr:3  Imposed  nodit  Location  vector. 

41  % 

42  irl  -='3’-^  A  cs.lafrw.^y  small  number  of  FEM  elements  to  keep  the 

43  %  problem  quick  &  manageable  for  initial  controls  work. 

44  % 

45  % 

46  %  Generate  meshing  vector  as  in  XM291rbjn: 

47  [ncord]  =;  fem_mesh(spaiial4den,lEUnbdcn,sarilvjiel): 

48  % 

49  clmcchloc  =  [];  trunnionloc  =  [1:  nel  =:  []; 

50  % 

51  %  _ 

52  %  Section  (3) 

53  %  Generate  the  mass  and  stif&icss  matrices  via  FEM . 

54  %  DEFINE;  Mfcm,Kfcm. 

55  %  USE:  spatial,  lden,lEI,lnbden,  ncord,  Uabel 

56  % . 

57  % 

58  IMfcm,K£Dm]  =  fcin_fonn(8palial,ldcn,lEUnbden,ncord); 

59  %  _ _ 

60  %  Section  (4) 

61  %  Generafis  die  constraint  matrix  for  fully  constrained  XM291 . 

62  %  (This  will  include  the  elevation  mechanism  and  the  trunnion,  with 

63  %  Ok  elevation  mechanism  stiffness  estimated  at  2/3’s  the  value  of  the 

64  %  trunnion  constraints.) 

65  %  Also  predefine  the  alpha  and  beta  for  Rayleigh 

66  %  damping.  (Shames  &  Dyn,  pp.  646.) 

67  %  DEFINE:  alpha,  beta,  constrabitm. 

68  % . 

69  % 

70  alpha  =  0.000;  ?o  Mass  proportional  damping  factor. 

71  beta  =  0.001;  %  Stiflness  proportional  damping  factor. 

72  % 

73  kenst  =  [(2/3);l]*750000*(4.4482)A0.0254);%  (lbf/in)(Nyibf)/(n3/iii) 

74  %  Estimated  lateral  elasticity  of  the  Elevation  and  Trunnion  constraints, 

75  % 

76  edenst «  beta  •kenst;  %  Slif&jcss  proportional  damping  of  constraints. 

77  % 

78  [y,  klcl]  =  min(abs(snlv(l)  -  spatial(ncord))):%  Identification  of 

79  %  constrainl  node  number. 

80  ly,  kltr]  =  mm(abs(snlv(2)  -  spatial  (ncord))) ;%  Identification  of 

81  %  ccmstrainlnode  number. 

82  geindk  =  2*[klcl;kltr]  •  1;%  Idemification  of  constrainl  generalized 

83  %  coordinate  number. 

84  % 

85  constraintm  =  [geindk  kenst  edenst]; 

86  % 

87  kenst  =  [];  cdcnsl  =  [];  y  =  [];  kltr  =  [];  geindk  =  []; 

88  % _ 

89  %  Section  (5) 

90  %  Lump  in  the  external  masses  and  constraints  into  tl>e  Mass  and  Stiffness 

91  %  matrices.  Also  generate  the  Rayleigh  damping  matrix. 

92  %  DEFINE:  M,  K,  Cd,  n2. 

93  %  USE:  Mfcm,  Kfem,  Mextl,  Mextr,  alpha,  beta,  coiLsiraimra. 

94  % . 

95  % 

96  [M.K.Gd]  « fem Jump(Mfcm,Kfcm.Mcxtl>Icxtr,alplia.bcta,constraintm); 

97  %  M,  K,Cd ->  Mass,  stUincss,  and  Rayleigh  damping  matrices  of 

98  %  generalized  coordinates  that  include  the  constrainl  and 

99  %  externally  coupled  dynamics. 

100  % 

101  n2  =  8i2e(M,l);%  The  number  of  generalized  coordinates, 

102  % _ - 

103  %  Section  (6) 

104  %  Generate  the  second  order,  damped  eigen  modes. 

105  %  DEFINE:  phi,  fv’,  fvn,  rkb. 

106  %  USE:  author  supplied  data. 

107  % . 

108  % 

109  [phi,fvn,rlab]  =  eigcn_2o(M,K);%  Compute,  undamped  eigen  frequencies. 

110  [phi,fv,rlabl  =  eigcn_2o(M,K,Cd);%  Compute,  normalize,  sort,  and  identify 

111  %  the  modes  of  vibration. 

112  ifplot_on=l 

113  figurc(lO) 

114  clg 

115  sct(gcf,PapcrOricnlatk>n','portrait');  %  This  series  of  commands  configures 

116  sct(gcf,'RapcrUnils’,'inches');  %  the  plot  window  to  effectively 

117  sct(gcf,'PaperPosition',[l  1  3.25  5.5]);  %  be  incorporated  into  a  report. 

118  sctfgcf.TJnils’, ’inches', 'position', get(gcf,'PapcrPosilion')); 

119  sct(gcf,'DcfaultAxcsFontSizc‘,9); 

120  for  n  =  1:4 

121  subplot(4,l,n) 

1 22  beain_plot(ncord,8patial  ,phi(:  ,n),gm/5  .censtraintmf :  .1 )); 

123  mlabcl  =  rlab(n,fjnd(abs(rlab(n.:))  ~=  32)); 

124  if  strcmp(rlab(n,l  ),'B’)  %  Check  to  see  if  bending  mode. 

125  tiUe([m!abci ',  ’  num2str(fv(n))  'Hz']) 


126  else  %  Else  ->  Rigid  body  witii  neai'Zcro  frequency  not  displayed. 

127  titlc([mlabel]) 

128  end 

129  axis([-0.27.,l.l|) 

130  grid 

131  ifn=4 

132  xlabel('Axial  PosiUen  (m)’) 

133  end 

134  pos  s  get(gca, 'position');  %  This  is  in  normalized  coordinates 

135  po8(4)3=pos(4)*.85;  %  Shrink  the  height  by  a  factor  of  .85 

136  pos(2>4k]8(2)  pcs(4)*.l  5;%  Raise  the  subplot  by  the  saved  height 

137  ■Btfgca.'poskian’jKis); 

138  end 

139  subtilic([tlabcr  Damped  Mode- Shapes’]) 

140  end 

141  % 

142  if  print_OD  1 

143  print  -deps  Ilgl0.ps;  %  R'int  the  file  as  an  encapsulated  Paat*Scr^  file. 

144  end 

145  % 

146  n»n;k-n;I«[I;nilabe!«[]; 

147  % 

148  % _ _ 

149  %  Section  (7) 

150  %  Convert  to  first-order  state-space  and  truncate  to  muzzle,  trunnion  SISO. 

151  %  DEFINE:  A,  B,  C, D,  nq,  states,  outputs,  inputs,  ac,  be,  cc,  de. 

152  %  USE:  M.  K.  Cd. 

153  % . 

154  % 

155  [A,B,C,D1  =  fcin2ss(M,K,Cd);%  This  form  assumes  FI  through  Mn  inputs 

156  %  and  all  generalized  coordinatos  as  outputs. 

157  tae,bc,cc,de]  =  sssclect(A,B,C,D,5,n2):%  F3  ->  gc(5). 

158  % 

159  % _ 

160  %  Section  (8) 

161  %Bo<kPlot 

162  %  USE:  ae,  be,  oe,  de. 

163  % . 

164  % 

165  [mag,phase,w]  =  bode(a6,be,cc,de,l  Jogspaceflogl  0(5*2’*pi)4ogl  0(500*2*pi),500)); 

166  ifplot_on=ss  1 

167  Gguic(ll) 

168  clg 

169  8ct(gcf,PapcrOricntation','partrait’);  %  This  »rks  of  cominands  configures 

170  8c1(gcf,'PapcrUmt8’,‘inchei');  %  the  jdot  window  to  effectively 

171  sctfgcf.P^xrPcMilion'.ll  1  6.3  3]);  9b  be  incorporated  into  a  report. 

172  8Ct(gcf,'Units‘,‘inches','po8ition’,gcl(gcf,’PapcrPositian')); 

173  8Ct(gcf,’DefaultAxesFontSi2c’,9); 

174  whitebg(gcf,’k') 

175  subplot(21 1 ) ,  aBmilogx(w/(2*pi)  ,20*logl  O(mag)) 

176  titlc([tiabcl '  Trunnion  Disturbance  to  Muzzle  Pointing  Angle  Bode  Plot*]) 

177  ylabcK’Gain  dB’) 

178  av  ss  [  [min(w)  max(w)]/(2*pi)  inin(20*logl  0(mag))  0.95*max(20*logl0(mag))]: 

179  axi8(av) 

180  fsbsissa  &  8art([  fv(l:4):  500]); 

181  flabd^n; 

182  for  I  ss  1  :lcngth(feb8issa) 

183  if  I  =4 

184  flabel  e  8tr2niat(flabel,[’  ’  freq2sti<fab8i5sa(I).l)]): 

185  else 

186  flabel  =  str2mat(llabel,fieq2sti<fabsissa(l),l )); 

187  end 

188  end 

189  £Ubel(l,:)  =  []; 

190  scl(gca,'Xrick',fab8issa) 

191  8et(gca,'XTickLabels', flabel) 

192  sct(gca,‘YTick‘,[min(20*logl  0(mag)),  mcdian(20*logl0(mag)),  max(20*logl0(mag))]) 

193  grid 

194  8ubplot(212),  8emilogx(w/(2*pi), phase) 

1 95  xlabeK’Frcquency  (Hz)' ),  ylabclCPhasc  deg’) 

196  av  =  [  [inin(w)  max(w)i/(2*pi)  min(phasc)  (max(phasc)+180)]; 

197  axis(av) 

198  act(gca,'YTick’J180:-180;-600j) 

199  grid 

200  end 

201  % 

202  ifprini_on  =  1 

203  set(gcf,'InvcrtHardCopy’,'on') 

204  print  -deps  figl  1  .ps;  %  Ptint  the  file  as  an  encapsulated  Post-Sexipt  file. 

205  end 

206  % 

207  % _ 

208  %  Section  (9) 

209  %  ImpulK  Response. 

210  %USE:».bc,oe,dc. 

211  % . 
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212  % 

213  =  inipulsc(ac,bc.cc,de, 1,10:0.000005:0.4]); 

214  % 

215  ifplot_an=  1 
216.  figured  2) 

217  clg 

218  »et(gcf,PapcrOrientation', ‘portrait’);  %  This  series  of  commands  configures 

219  8et(gcf,*ftipcrUmis’, 'inches');  %  the  plot  window  to  effectively 

220  ict(gcf,PapcrPosition',[l  1  3.8  3.5]);  %  be  incorporated  into  a  report. 

221  sctfgcf, Units’, 'inches', ‘position', get(gcf,'PaperPosiiion')); 

222  8cl(gcf,'l>efaultAxcsFonlSizc’,9); 

223  idot(t,y,‘k',[min(t)  max(t)],[0  0],  'k:') 

224  av  =  a;tis; 

225  av(3)*=Z2*av(3): 

226  axis(8v) 

227  pa«  «  got(gca,'posiUon');  %  This  is  in  normalized  coordinates 

228  poa(2)s  pos(2)  *  (1  •0,85)*pos(4)/2;  %  Raise  the  subplot  but  keep  it  centered. 

229  paa(4)=  0.85  •pos(4);  %  Shrink  the  height  by  a  factor  of  85 

230  ict(gca,'position'.po6); 

231  titleC  SIS 0  Fully  Constrained  Impulse  Response') 

232  )4abel('Muzzle  Defleetton  (rad)') 

233  xlabel(Timc  After  NewtOD-Scccmd  Inqjulsc  at  Trunnion  (sec)') 

234  newpos  =  ((pos(l)+pos(3)/3)  (pos(2)+pos(4)/7)  (pos(3)/2)  (pos(4)/3)]; 

235  axes('position’jjewpos) 

236  ttnmk  =  t(l:1500); 

237  plot(ttrunk,y(l:length(ttrunk)),’k‘,[0  0.010], [0  OJ.'k:') 

238  avs  [0  0.01  I.l*[rnin([0;y(l:lciigih(ttr\ink))])inax(y(l:lcngtli(ttrunk)))]]; 

239  axisfav) 

240  titleC  Initial  Response  Qosc-Up') 

241  ylabclC(rad)') 

242  set(gca,'XTick’,(0  0.005  0.01 0]) 

243  set(gca.’XTickLabels',str2niat('0.000','0.005', '0.010)) 

244  xlabcl('(sec)') 

245  end 

246  % 

247  ifprini_on  =  l 

248  print  -deps  figl2.ps;  %  Print  the  file  as  an  encapsulated  Post-Script  file. 

249  end 

250  % 

251  % _ _ _ 

252  %  Section  (10) 

253  %  Unit  Step  Response. 

254  %  USE:  ac,  be.  cc,  de. 

255  % . 

256  % 

257  (ypc,t]  =  step(ac,bc,cc,de,l  ,[0:0.00005:0.5]);  %  Compute  step  response. 

258  [nuirtden]  =  ss2tf(ae,bc,cc,dc);  %  Compute  Transfer  Function  Polynomials. 

259  fvy  =  num(lcngth(num))/dcn(lcngtli(dcn));  %  Final  Value  Tteotem  of  TF. 

260  %  Effectively  sets  s  to  zero. 

261  ifploUon  =  l 

262  figure(13) 

263  dg 

264  sci(gcf,'PaperOricntation’, 'portrait');  ?<>  This  scries  of  commands  configures 

265  set(gcf,'PapcrUnits’, ‘inches'):  %  the  plot  window  to  effectively 

266  scl(gcf,'Pa^rPo8iiion',[l  1  3.8  3.5]);  %  be  incorporated  into  a  report. 

267  sctfgcf, Units', 'inches', ‘position',gcl(gcf,'PaperPosiiiorO); 

268  set(gcf,'DefauliAxesFontSize’,9); 

269  ploi(i,y.V,[min(t)  max(t)].(0  0],  'k:',|min(t)  rnax(t)],fvy*[  1  1],  'k-.') 

270  *!t(gca,'yTick',[nux(y)  0  fvy  min(y)]) 

271  av  K  axis; 

272  av(3)  =  12*avC3); 

273  axis(av) 

274  pos  =  get(gca,'positian');  %  This  is  in  narmalizcd  coordinates 

275  pos(2)=pos(2)+(l*0.95)*pos(4)/2;  %  Raise  the  subplot  &  keep  h  centered. 

276  pos(4)=0.95  *pos(4):  %  Shrink  the  l^ight  by  a  factor  of  .95 

277  posd)=pos(l)+(l-0.85)*pos(4)/2;  Shift  to  tlic  riglit. 

278  scl(gca,'positian',pos); 

279  titleC  SISO  Fully  Coiistramed  Step  Response') 

280  ylabeU'Muzzle  Deflection  (rad)’) 

281  xlabdCTimc  After  New  ton  Applied  at  Trunnion  (see)’) 

282  newpos  « [(pos(l)+pos(3)/3)  (pos(2)+pos(4)/8)  ios(3)/3)*l .5  (pos(4)/4)]; 

283  axesCposition'^jcwpos) 

284  ttTunk:st(l;200); 

285  plot(ttrunk,y(l:length(ttrunk)),'k',[0  0.015], [0  0],'k:') 

286  av  s  [0  0.01  l.l*[min((0;yd:Icn^(Urunk))])  max(y(l:lcngih<ttrunk)))]]; 

287  axis(av) 

288  titleC  Initial  Response  Qosc-Up') 

289  ylabelC(rad)') 

290  sct(gca,'XTick',[0  0.005  0.010  0.015]) 

291  8et(gca,'XTickLabds‘.str2matC0.000’,’0.005’,’0,010','0.015')) 

292  xlafacIC(scc)*) 

293  end 

294  % 

295  if  print_an  =  1 

296  print  -deps  figl S.ps;  %  FVint  the  file  as  an  encapsulated  Post-Serrot  file. 

297  end 


298  % _ _ _ 

299  %  Section  (11) 

300  %  Force  due  to  gravity. 

301  %  USE;  A  B.  C.  D. 

302  % . 

303  g  =  -98067 ;  %  Earth  Surface  Gravity  (nV(s^2)). 

304  weight  =  g*(lden  +  lnbdcn)*difRspatial(l:2)); 

305  % 

306  %  [F]  =  fcm_forcc(spatial,weight,zcro8(8i2eaden)),ncoTd,tlabel);%  Prints  F. 

307  [F]  =!  fbnt_force(8patial,weight,2eros(8i2cGdcn)),ncord); 

308  % 

309  %  Now  incoiporatc  the  two  2x2  rigid  body  mass  matrices  after  checking  to 

310  %  avoid  divide  by  zero: 

311  % 

312  ifaba(Mcxtl(l,l))>0 

313  P(l)-PCl)'»-g*MDxtl(l.l);ftg*Kg. 

314  P(2)  1=  F(2)  +  g*(Mextl(l,2y'2/MexU(l.l));  %  g*(  (m*Kgy'2/Kg). 

315  end 

316  % 

317  ifabs(Mexti<l.l})>0 

318  P[n2.l)=:F(n2rl)  +  g*Mcxti<l,l); 

319  F(n2)  =  F{n2)  +  g*(Mcxti<1.2)A2/Mextr(l.l)):  %  g*(  (m*Kg)^^TCg), 

320  end 

321  _ 

322  %  Section  (12) 

323  %  Time  simulation  of  deflection  due  to  gravity. 

324  %  USE:  A,  B,  C,  D,  F.  M,  K,  n2. 

325  % . 

326  % 

327  t  s  (0:0.005:4)';  %  Generate  a  time  vector  for  the  simulation. 

328  u  =  ancs(size(t))*F;  %  Apply  the  same  force  vector  at  each  Hint-  slice. 

329  [ypt] » lsim(A,B,C,D.tt,t);  %  Gjn^ute  response. 

330  timsslength(t); 

331  xgs  =  x(iim,:);%  X  due  to  g  at  near  infinity  from  simulation. 

332  % 

333  aniniate_an  =  0;%  Flag  to  execute  animation  of  step  response  of  gravity. 

335  if  animate_on  **=:  1 

336  xlat  as  j^:, [1:2012]);  %  Identify  the  greatest  lateral  deflection. 

_  337  maxlat  =  max(max(xlat)); 

338  minlat  =  min(min(xlat)); 

339  scale  =  max(abs([raaxlat  minlat] ))/(5*max(max(gm)));%  Scale  the  beam  plot. 

340  av  =  ( (min(8patial)-  0.1*max(spatial))  l.l*max(spatial) ... 

341  (minlat  -  scale •inin(min(gra)))  (maxlat  +  5cale*max(max(gm)))]; 

342  % 

343  figure(14) 

344  dg 

345  sct(gcf,PaperOricnlatk)ri,'portrait’);  %  This  series  of  commands  configures 

346  sct(gcf,'PaperUmts','mchc3');  %  the  plot  window  to  effectively 

347  8ct(gcf,'P^)crPo8itiaD‘,[1.75  3.75  5  3.5]);  %  be  incoeporated  into  a  report, 

348  «ct(gcf,Units','inches','position’,gct(gcf,'PBperPosition')); 

349  8ct(gcf,'DefauItAxesFcBitSizc‘,12); 

350  for  Is  1:1:100 

351  dg 

352  beam_plot(ncord,*patial,x(i,l:size(M,l)),gm*8calc.con5traintm(:,l)); 

353  tiile([’  Step  Gravity  Response  Animation']) 

354  xlabclCAxial  Position  (m)') 

355  ylabdCLateral  Deflection  (m)’) 

356  hold  on 

357  iJot([min<8patial)  max(spatial)],[0  OJ.Ic') 

358  hold  off 

359  axisfav) 

360  pos  s  »ct(gca,'positian');  %  This  is  in  narmalizcd  coordinates 

361  newpos  =  [(pof(l )+po8(3)^)  (pos(2)+pas{4)/7)  (po8(3)/2)  (po8(4)/3)]; 

362  axesCpoutian’,Dewpos) 

363  plot(t<l:tim),y(l:tim,n2).'k') 

364  tiUc(['  t  =  'numf2sti(t(I)+l»'(-7),3,l)'8ec’]) 

365  %  num2fstr  jn  is  a  modified  form  of  nuin2strjn  that  imposes  the  formal 

366  %  notation  of  %5  Jf  to  keep  the  time  from  bouncing.  (It's  easy  to  do.) 

367  ylabclC  Muzzle  Eteflcction  (rad)') 

368  xlabcKTin*  (s)') 

369  axis([min(t)  max(l)  round(min(y(l;tim,n2)*(10M)))i/10M ... 

370  round(max(y(l:timji2))*(10M))/10M]) 

371  hold  on 

372  plot(t(I),y(U2),'bo') 

373  hold  off 

374  %  Qcate  box  around  entire  plot  region: 

375  exterior  =  [001  1]; 

376  axcsCposition',  exterior) 

377  8Ct(gca,'Box','on') 

378  aBt(gca,'XTick’J]) 

379  8ct(gca;YTici’,[]) 

380  % 

381  %  Uncomment  to  save  images  as  sequential  gif  files  to  be  read  into 

382  %  standard  movie  maker  package.  (This  is  the  best  way  to  ao ) 

383  % 


54 


384  ^  cvsHdy/mi  -armr^ic'  mt2stt<I)  ’.gif]) 

as  paiss^’O] 
a&(S  ecc.' 

387  end 

388  % _ _ _ 

389  %  Section  (13) 

390  %  Final  Value  Tljcoreni  Prediction  of  static  deflection  due  to  gravity. 

391  %USE:ac.be.oe,dc. 

392  % . 

393  % 

394  FV'rra  =  2eros(sizeCM));%  Initialize  matrix  to  zeros. 

395  % 

396  %  Loop  through  all  of  the  indices  to  evaluate  flic  final  value  theorem 

397  %ofthc  transfer  function. 

398  % 

399  fbrI-l:8i2e(M,l) 

400  for  j«l;«ize(M,l) 

401  (t,b,c,<il*»»«l»ct(A,B.CJ),ij): 

402  (num,dcn]  =  »a2tf(a,b,c,d);  %  Confute  Transfer  Function  Polynomials. 

403  fvy  =  nuin{lcngth(num))/denOcngth(dcn)) ;  %  Fmal  V  alue  Theorem  of  TF. 

404  %  EfTectivcly  sets  s  to  zero. 

405  FVTmfj.i)  =  fvy; 

406  end 

407  end 

408  % 

409  xfvt  =  FVTm*F; 

410  % _ 

411  %  Section  (14) 

412  %  Second  order  inverted  stiffness  approximation  to  static  gravity  loading. 

413  %USE:KandF. 

414  % . . . 

415  xinvk  ==  K>F;%  le,  since  x  ddot  -> zeros,  K'*x  =F*>x  =inv(K)*F. 

416  % _ _ 

417  %  Section  (15) 

418  %  Juxupose  three  methods  to  determine  static  gravity  deflection  on  one 

419  %plol. 

420  %  USE:  xgs,  xfvt,  xinvk,  gm,  spatial,  M. 

421  % . 

422  sm  =  2*flooi<size(M,l)/2): 

423  xlemp  =  xfvt(l:2;sm): 

424  scale  =  max(abs(xtenq)))/(5*max(max(gni))); 

425  av  =  [  (min(spalialF  0.1  *max(spatial))  1  .l*max(spaiia])  ... 

426  min(xtcmp)  max(xtcmp)]; 

427  % 

428  ifpIot_on“l 

429  figure(i4) 

430  dg 

431  sct(gcf,'PapcrOricntauon',‘partraii');  %  This  scries  of  commands  configures 

432  ict(gcf,'PaperUnits',’inch5s'):  %  the  jdot  window  to  effectively 

433  sct(gcf,*PapcrPcisitiQn',[l  ,75  3.75  4  23]);  %  be  incorporated  into  a  report, 

434  5et<gcf,'Units','inches‘, 'position', get(gcf,'PaperPosition')); 

435  sct(gcf,T)cfauliAxesFontSizc',10): 

43 6  beam_jdot(ncord,spatial  pi  fvt,gm*scalc,constraintm( :,!)); 

437  hold  on 

438  beanuplot(ncord,spatialpcinvk , grayscale ,  constraintmC :  ,1 ) ); 

439  bcara_ploi(ncord,spatialpi(lengih(i),l :size(M,l)),gm*scalc,comtrabtm(;,l)); 

440  hold  off 

441  av  =  axis; 

442  av(l)  =  -8v(2)A0; 

443  axis(av) 

444  grid 

445  titlc(['  ’  tiabcl '  Static  Grav  ity  Deflection']) 

446  xlabcK'Axial  Position  (m)') 

447  ylabcK'Latcral  Deflection  (m)') 

448  pos  =  ge^ca, ’position');  %  This  is  in  normalized  coordinates 

449  pos(2)=pos(2)+(l  -0.85)'^s(4)/2;  %  Raise  the  subplot  &  keep  it  centered. 

450  pos(4)=0.85*pos(4);  %  Sluink  lire  height  by  a  factor  of  .85 

451  pos(l)=pos(l)+(L0.85)*pos(4)/2;  %  Shift  to  the  right. 

452  8ct(gca,'posilion*,pos); 

453  end 

454  % 

455  ifprint_on  =  l 

456  prim  -deps  figl4.ps;  %  ftinl  tic  file  a.s  an  cncapsulaled  Post-Scr^t  file. 

457  end 

458  % _ _ 

459  %  Completed: 

460  % . . 


<XM291rbjn> 

1  %  XM291rbjn  •>  A  working  script  M-Clc  to  execute  analysis  of  an  XM291 ,  with 

2  %  one  rigid  body  mode,  using  the  finite  clement  formulation  and  dynamics 

3  %  analysis  functions  defined  within  the  subdirectory,  beam_fcm/. 

4  %  o  Created  24  October  1995  -  08  January  1996  by  Eric  Kathc. 

5  %  BenctLabs.Watervliet  Arsenal,  NY  12189-4050  <ekaihe@picajumyjnil> 

g  ^  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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8  %_ _ 

9  %  Section  (1) 

10  %  Set  the  plot  and  print  flags  on  or  off,  run  the  geometry 

11  %  m-fik ,  and  create  a  plot  label . 

12  %  DEFINE:  plot_on,  print_an,  tiabcl,  spatial,  ldcn,lEI,lnbdcn,Mcxtl, 

13  %  Mextr,  gm. 

14  % . 

15  % 

16  %  Set  plot  and  print  flags  to  1  to  enable,  zero  to  disable. 

17  plot_on  =  l; 

18  print_onssO; 

19  % 

20  ifprint_an  =  l 

21  plot_on  =1;  Cleariy,  to  print,  the  plot  flag  must  be  cnaWed. 

22  end 

23  % 

24  tiabcl  *  'XM29  Irb* ;%  tlabol  ->  Enables  plotting . 

25  % 

26  ifjdoL.onwl 

27  figured) 

28  dg 

29  %  Define  the  figure  options  for  desired  output. 

30  set(gcf.'P^)orOricntation', 'portrait');  %  This  series  of  commands  configures 

31  ■et(gcf,'PapciUmts', 'inches’);  %  the  plot  window  to  effectively 

32  ict(gcf,'ftipeiPosition',ll  1  6.5  4.5));  %  be  incorporated  into  a  report 

33  ■et(gcf, ’Units', 'inches', 'pofition',gct(gcf,'PaperPQsition’)); 

,34  8ct(gcf,'DcfaultAxcaFontSize',9); 

35  % 

36  [spatial,  Idcn,  lEI,  Inbdcn,  Mexd,  Mextr,  gm]  =  geainf_XM291  (tiabcl); 

37  else 

38  [spatial,  Idcn,  lEI,  Inbdcn,  Mexti ,  Mextr,  gm]  =  geomf_XM291 ; 

39  end 

.40  %  spatial ->  Axial  position  vector. 

41  %  Iden  ->  Beam  linear  density  vector. 

42  %  lEI  ->  Similar  to  Iden  except  for  linear  BI  cross-section  properties. 

43  %  Inbdon  ->  The  inertia  of  iK)n-beam  masses  attached  to  beam. 

44  %  Mcxtl,  Mextr ->2x2  sub  matrices  of  left  and  right  extreme  rigid  body 

45  %  inertia. 

46  %  gm  ->  The  columns  of  this  matrix  record  the  inner  aiui  outer  radii. 

47  % 

48  if  print_an  —  1 

49  print  -deps  fig.ps;  %  Print  the  file  as  an  encapsulated  Post-Script  file. 

50  end 

51  % 

52  % _ 

53  9b  Section  (2) 

54  9b  Define  barrel  constraint  locations,  number  of  elements,  and  create 

55  %  element  mesh  vector. 

56  9b  DEFINE;  snlv,  ncord. 

57  9b  USE:  spatial.  Idcn,  lEI,  Inbden,  snlv,  tiabcl. 

58  9b . 

59  9b 

60  elmechloc  =  0.220;9b  (m)  Mid-span  of  breech  ring  threads  on  barrel. 

61  trunnianloc  =  38.9  *(0.0254);%  ii^nvhi)  Yoke  position  as  in  gBomf_XM291 

62  %  liite462. 

63  snlv  s  [elmechloc;  trunniQnloc];%  (m)  Imposed  node  location  vector. 

64  9b 

65  ncl  =  7;%  A  relatively  small  number  of  FEM  elemenis  to  keep  the 

66  %  problem  quick  &  manageable  for  initial  controls  work. 

67  9b 

68  ifidot_on  =  l 

69  figurc(2) 

70  dg 

71  9b  Define  the  figure  options  for  desired  output. 

72  sct(gcf,'PapeTOriBntation‘, 'portrait');  9b  This  scries  of  commands  configures 

73  8et(gcf,'PapcrUnits’, ’inches');  %  the  plot  window  to  effectively 

74  8ct(gcf,'PaperPo3ition',[l  1 4  4.5]);  %  be  incorporated  into  a  report. 

75  8et(gcf, 'Units'  .'inches', 'position', gct(gcf,'PaperPosition‘)); 

76  sct(gcf,'DefaultAxesFantSi2ie',9); 

77  % 

78  [ncord]  =  fem_mcsh(8patial4den4EIdnbden, snlv  ,ncl, tiabcl); 

79  else 

80  [ncord]  =  fem_mesh(spatial4den4EI4nbdBn,snlv,nel); 

81  end 

.82  %  <ncard>  is  the  vector  of  node  indices. 

83  % 

_84  if  priiit_an  =  1 

■85  print  *deps  fig2,ps;  %  Print  the  file  as  an  encapsulated  Post-Script  file. 

86  end 

87  % 

88  elmechloc  =  [l;lnmnianloc  =  [);nel  =  []; 

89  9b 

90  9b _ 

91  %  Section  (3) 

92  %  Generate  the  mass  and  stiffiiess  matrices  via  FEM. 

93  %  DEFINE:  Mfcm,Kfcm. 
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94  %  USE:  spatial,  Idcu,  lEl,  Inbdun,  iicord,  tiabel 

95  % . . 

96  % 

97  [Mfcm,Kfcm]  =  fcm_form(spatial,lden4ElJnbdBii,ncord);%  Mfem&  Kfcm  arc 

98  %  out-put  mass  and  siiX&icss  matrices  of  the  second-order  self-adjoint 

99  %  system.  Note  tiabel  is  not  included  so  that  a  plot  is  not  prcaented, 

100  %  _ 

101  %  Section  (4)  ~  ~ 

102  %  Generate  the  constraint  matrix  for  elevation  control  problem.  (This  will 

103  %  just  be  the  trunnian.)  Also  pedcfinc  the  alpha  and  beta  for  Rayleigh 

104  %  dancing.  (Shames  &  Dyn,  pp.  646.) 

105  %  DEFINE:  alpha,  bcta,CQnstraintm. 

106  %  USE:  author  supplied  data. 

107  % . 

108  % 

109  alpha  *  0.(X)0;  Mass  pruportianal  damping  factor. 

110  beta  *  0.001 ;  %  StifTneas  proportional  damping  factor. 

111  % 

112  kcast »  750000*(4.4482)/(0.0254);%  (lbiyinXN/lbO/(u/m) 

113  %  Estimated  lateral  clastici^  of  the  Trunnion  constraint. 

114  9b 

115  edenst  =  bcta*kciut;  ?o  Stiffiicss  proportional  damping  of  constraint 

116  % 

117  [y,  kltr]  =  min(abs(snlv(2)  -  spatial(ncord)));%  Identification  of 

118  %  constraint  node  number. 

119  gcindk=:2*(kltr]  •  1;%  Identification  of  constraint  generalized 

120  %  coordinate  number, 

121  % 

122  constrain£mi=[gcindkkcnstcdaist|; 

123  % 

124  kcnst  =  (];cdcnst=:n;y  =  lJ;kltr  =  [];  gcindk  =  []; 

125  %_ _ 

126  %  Section  (5) 

127  %  Lump  in  the  external  masses  and  constraint  into  tlie  Mass  and  Sti&iess 

128  %  matrices.  Also  generate  tlx;  Rayleigh  damping  matrix. 

129  %  DEFINE:  M,  K.  Cd.  n2. 

130  %  USE:  M&m,  Kfcm,  Mcxtl,  Mextr,  alpha,  beta,  constiaintm. 

131  % . 

132  % 

133  [M,K,Cd]  =  fcmJump(Miera,Kfcm,Mcxtl , Mextr, alpha, bcta.constraintm): 

134  9b  M,  K,  Cd  ->  Mass,  stiOhess,  and  Rayleigh  damping  matrices  of 

135  %  generalized  coordinates  dial  include  the  constraint  and 

136  %  externally  coupled  dynamics. 

137  % 

138  n2  =  si2c(M,l);9b  The  number  of  generalized  coordinates. 

139  9b 

140  if  ploi_on  =  1 

141  figurB(3); 

142  clg 

143  %  Define  the  figure  options  for  desired  output. 

144  sct(gcf,'PaperOricniation', 'portrait');  9b  This  series  of  coininands  configures 

145  scl(gcf,'PlaperUnits','inches');  9b  the  plot  window  to  effeaivcly 

146  8ci(gcf,PaperPositiou‘,[l  1  6.5  4.5]);  %  be  incorporated  into  a  report. 

147  sct(gcf,'Unils',‘inchcs',‘position',gpt(gcf,'i^perPosition')); 

148  sci(gcf,'DefaultAxcsFontSize',9); 

149  % 

150  colonnap(flipud(hot));%  Assign  non-default  color  map  for  better  gray  scale. 

151  iubplot(321),  image(64*M/max(max(M)));  %  Normalize  M  to  0  to  64. 

152  titlc(['Imagc  of  Mass  Matrix,  M‘]) 

153  sct(gca,'ajqjcct‘,[l  ,1]);  %  This  aspect  ratio  makes  tte  matrix  images  square. 

154  sul^otfl  1,2,11),  image(l:64);  %  This  plots  the  color  bar  or  image  scale. 

155  titicCColor  Scale*) 

156  alabel  =  CZeroYHigh']; 

157  8el(gca,Xrick*.[1.64]) 

158  sct(gca,'XTickLabcls',aIab6l) 

159  sct(gca.'YTick'.[]) 

160  subplot(325),  imagc(64*K/max(max(K)))  %  Nomialbe  K  to  0  to  64. 

161  dUeCI'linagc  of  Stinhess  Matrix,  K']) 

162  aet(gca,'aspcct’,[l,l]) 

163  subplot(222).  spyCM) 

164  titlc('Spy  Image  of  Nonzero  Mass  Matrix  Elements') 

165  subiJot(224),spy(K) 

166  titlefSpy  Image  of  Nonzero  Sliflhcss  Matrix  Elenttnts') 

167  subtitle([tlabel '  Constrained  Mass  &  Stiflhess  Matrices')) 

168  end 

169  9b 


180  9b 

181  [phi,fvn,riabl  »cigBn_2o(M,K);9b  Compute,  ncMroalizc,  sort,  and  identify 

182  %  the  modes  of  vibration. 

183  %  phi ->n2xn2  matrix  whose  columns  consist  of  the  mass  ncnnalizcdeigcn- 

184  %  vccton  with  each  column  corresponding  the  respective  frequency 

185  9b  element  of  fv. 

186  %  fvn  ->  ii2xl  vector  of  linear  modal  frequencies  (Hz)  sorted  in  order  of 

187  %  moeasing  frequency. 

188  %  rlab  ->  String  matrix  of  row  labels  identifying  the  mode’s  by 

189  9b  bending  mode  number  or  Rigid  body  mode. 

190  ifpIo(Loo  =  l 

191  figure(4) 

192  dg 

193  9b  Define  the  figure  options  for  desired  output. 

194  •ot(gcf,'PaperOrka3taiion', ’portrait');  9b  This  scries  of  configures 

195  soKgcf.'PaporUmts’, ’inches’);  9b  U*  plot  window  to  effectively 

196  set(gcf,'PapojPc»ition',[l  1  6.5  4.51);  9b  be  incorporated  into  a  report 

197  soifgcf, *Uniu', 'inches', 'positiem',  ge^cf.’RaperPosition’)); 

198  set(gcf,'DcfaultAxcsFontSizc',9); 

199  n«0; 

200  forjxlJ 

201  forks  0:3-3 

202  Isj+k; 

203  nsn+1; 

204  subpiot(3An) 

205  l*ani_plot(ncard,fpatial,phi(:,I),gm/5,constraintm(:,l)); 

206  mlabel  ®  riab(i,Cnd(ab8(rlab(I,:))  ~=  32)); 

207  if  8trcmp(rlab(i,l  X’S*)  %  Cl^ck  to  sec  if  bending  mode. 

208  titlc<{mlabel  '  inmi2sti(fvi^I))  ’Hz’]) 

209  else  %  Else  ->  Rigid  body  with  near-zero  frequency  not  displayed. 

210  title([mlabel]} 

211  end 

212  axi3({-0.27..1 .11) 

213  grid 

214  ifn>4 

215  xlabelCAxial  Position  (m)') 

216  end 

217  pos  gct(gca, 'position');  %  This  is  in  normalized  coordinates 

21 8  po8(4>=pos(4)*.85;  %  Shrink  the  Iteighi  by  a  factor  of  .85 

219  pos(2)=pos(2)  +  pos(4)*.l  5;9b  Rai»  the  subplot  by  the  saved  height 

220  rel(gca,‘position',pos); 

221  end 

222  end 

223  subtide(ltlabel  *  Undaizped  Mass-Narmalizcd  Eigenvectors  and  Frequencies']) 

224  end 

225  % 

226  ifprini_an=  1 

227  print  -deps  fig4.p8;  9b  Print  the  file  as  an  encapsulated  Post-Script  file. 

228  end 

229  9b 

230  n  =  [):k  =  (];I  =  [];mlabcl=n: 

231  9b 

232  9b  _ _ 

233  %  Section  (7) 

234  9b  Generate  the  second  order,  damped  cigen-modcs. 

235  9b  DEFINE;  phi,  fv,  rlab. 

236  9b  USE;  M.  K,  Cd. 

237  9b . 

238  9b 

239  [phi,fv,rlab]  =  cigen_2o(M,K,Cd);%  Compute,  normalize,  sort,  and  identify 

240  %  the  modes  of  vibration. 

241  %  phi  ”>  n2xn2  matrix  whose  columns  consist  of  the  mass  normalized  eigen* 

242  9b  vectors  with  each  coluiim  corresponding  the  respective  frequency 

243  9b  element  of  fv. 

244  9b  fv  ->  n2xl  vector  of  linear  modal  frequencies  (ffe)  sorted  in  order  of 

245  %  increasing  frequency. 

246  %  rlab  ->  String  matrix  of  row  labels  identifying  the  mode's  by 

247  9b  bending  mode  number  or  Rigid  body  mode. 

248  if  plot_an  =  1 

249  figure(5) 

250  clg 

251  %  Define  the  figure  c^ons  for  desired  output. 

252  8et(gcf,'P^)crC)rienlatiDn' .'portrait');  9b  This  series  of  commands  configures 

253  sctfgcf.’PapciUnits’, 'inches’);  9b  the  plot  window  to  effectively 

254  set(gcf,'PapciPo8itian',[l  1  63  43]);  9b  be  incorporated  into  a  report 

255  8ct(gcf,'Uiut5','iiKiici^,'^sition',gct(gcf,'P&pcrP0silian')); 

256  8ct(gcf,'DcfaultAxc8FontSize',9); 

257  n  =  0; 

258  for]  =  13 

259  fork  =  0:33 


170  if  prin:_on  =  1 

171  print  -deps  fig3.ps;  %  Print  the  file  as  an  encapsulated  Post-Sermt  file. 

172  end 

173  9b 

174  % _ _ _ _ 

175  %  Section  (6) 

176  9b  Generate  the  second  order,  undamjxd  eigen-modes. 

177  %  DEFINE:  phi,  fvn,  rlab. 

178  %USE:M.K. 

179  9b . 


.260  I=j-Hk+1; 

261  n  =  n+1;  %  By  adding  one,  tiic  rigid  body  mode  is  skipped. 

262  mbpIot(3.2,n) 

263  bcam_plot(ncord,fpatial,;iti(:.l),gm/5,constiamlm(:.l)); 

264  mlabel  =  riab(i,fiiid(ahs(rlab(l,;))  -=  32)); 

265  if  stfcn^tlab(i,l  ),'B')  9b  Check  to  see  if  bending  mode. 
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■266  titled  mliilxvl ^  v’®)  1  Iz']) 

267  else;  %  Esc  ->■  body  with  near-zero  frequency  not  displayed. 

268  likiCtrolabel]) 

269  end 

270  axis(l-0.27-.l  .1]) 

271  grid 

272  ifn>4 

273  xlabclCAxial  Position  (ni)') 

274  end 

275  pos  —  getCgca, 'position');  %  lliis  is  in  narmalized  coordinates 

276  po8(4)=^s(4)*.85;  %  Shrink  the  height  by  a  factor  of  .85 

277  poa(2)s9os(2)  +  pos(4)*.l  5;%  Raise  Uio  subplot  by  the  saved  height. 

278  aet(gca.'position',pos); 

279  end 

280  end 

281  subtitleClUabel '  Damped  Mass-Normalized  Bending  Mode-Shapes  and  Frequencies']) 

282  end 

283  % 

284  ifprint_on=l 

285  print  -deps  Cg5.ps;  %  Print  the  Tile  as  an  encapsulated  Post-Scryt  file. 

286  end 

287  % 

288  n  =  [];  k  =  (];  I  =  [];  ralabel  =:  []; 

289  % 

290  % _ _ 

291  %  Section  (8) 

292  %  Convert  to  first-order  state-space  and  truncate  to  muzzle,  clmcch  SISO. 

293  %  DEFINE:  A,  B,  C,  D,  nq,  states,  outputs,  inputs,  ae,  be,  ce,  de. 

294  %  USE;  M.  K.  Cd. 

295  % . 

296  % 

297  IA,B,C,D]  =  fem2ss(M.K,Cd);%  'Phis  form  assumes  FI  through  Mn  ii^uts 

298  %  and  all  generalized  coordinates  as  outputs. 

299  %  A.  B,  C.  D  ->  State-Space  Matrices  as  in: 

300  %  dqv/dt  =  A*qv  +  B*uv 

301  %  yv  =  C*qv  +  D*uv  ...  where  qv  =  state  vector  (Igc's;  dge's/dt]). 

302  %  uv  ss  input  vector  F(l)  through  M(n^). 

303  %  yv  =  output  o  f  generalized  cotjrds. 

304  nq  =  si2c(  A,l);%  'fix:  number  of  stale  variables. 

305  % 

306  if  ploi_an  =  1 

307  £igure(6) 

308  clg 

309  sct(gcf,'PaperOrienlatiou' .'portrait');  %  This  series  of  curamands  configures 

310  sctfgcf.’PaperUnits', 'indies');  %  llie  plot  window  to  effectively 

31 1  aet(gcf,'PaperPo8ition',[l  1  4  4]);  %  be  incorporated  iiUo  a  report. 

312  sctfgcf.'Unils', 'inches', 'po8ilion‘,gel(gcf,'PapcrPosition')); 

313  ici(gcf,'DefauJtAxcsFontSizc',9); 

314  aubplot(221).spy(A) 

315  titleCA  matrix') 

316  8ubidot(222),  spy(B) 

317  titlc<'B  matrix') 

318  »ubplotf223),  spy© 

319  titic('C  matrix') 

320  subploi(224),spy(D) 

321  pws  =  gct(gca,'position');  %  This  is  in  normalized  coordinates 

322  pos(4)=pos(4)/2;  %  Slirink  the  height  by  a  factor  of  .85 

323  pos(2)=pos(2)  +  pos(4)/2;  %  Raise  the  subplot  but  keep  it  centered. 

324  sct(gca,'posilion',pos); 

325  titleCD  matrix') 

326  aubtidcC[’Firsl-Order,  Non-Zero,  System  Matrix  Enuies'j) 

327  end 

328  % 

329  ifprini_on=  1 

330  print  -deps  fig6.ps;  %  Print  the  file  as  an  encapsulated  Post-Scr^t  file. 

331  end 

332  % 

333  %  To  print  the  system  usbg  the  prinisys  command,  uncomment  this  subsection. 

334  %  AAAAAAAAAA 

335  %  ges  =  [);  %  Dcdarc  null  initid  variable  description  strings. 

336  %dgcs  =  n;  % 

337  %  inputs  =  [];  % 

338  %forI  =  l:n2;2 

339  %  gcs»lgcs*x'int2sti<I)'theta'int2str(l)];  %  Loop  through  & 

340  %  dgcs  =  [dgcs'dx'ml2str(i)'dtbcta'ini2str<I)]:%defineeach 

341  %  inputs  -  [inputs  '  F  int2stKI) '  M' ml2str(I)];  %  beam  variable. 

342  %  end 

343  %  slates  *  (ges  dgcs];9E?  State  vector  ([go's;  dgc'^di]) 

344  %  outputs  =  [  ges  j ;  %  Output  of  general  izc  d  coord.s . 

345  % 

346  %  inputs(l)  s  [];  % 

347  %  staJcs(l)  =  [];  %  Eliminate  initial  blanks. 

348  %  outputs(l)  =  [];  % 

349  % 

350  %prinlsys(A,B,C,D,inputs,outputs.states) 

351  %  AAAAAAAAAA 


352  % 

353  %  Select  system  for  elevation  mechanism  input,  F2  ->  gc3,  and 

354  %  muzzle  pointing  angle  ou^t,  thetafnel+l )  ->  final  gc  ->  gc(n2). 

355  % 

356  [ac.bc.ee, de]  =  isselect(A,B.C,D.3,n2); 

357  % 

358  %  prmtiyi(ac,bc,cc,de,'F-Blm6ch',*Muzzle_Poinimg_Anglc',statcs) 

359  % 

360  %  _ - 

361  %  Section  (9) 

362  %  Pole  Zero  Map. 

363  %  USE:  ae.be,  ce.de.fvn. 

364  % . . . . . 

365  % 

366  [p,z]  =pzmap(ae,be,ce,de); 

367  wv*imag(p(find(imag(p)  >.!)));%  Find  imaginaiy  part  of  poaitivo  conjugates, 

368  wv  =  [0;sort<wv<:))]; 

369  % 

370  ifplot_an 

371  figureC?) 

372  dg 

373  ict(gcf,TapcrOricnutkm','partraif);  %  This  series  of  commands  configures 

374  ■clfgcf.'P^ierUmts’.'inchcs');  %  the  plot  window  to  effectively 

375  setfgcf.’PapeiPosition',!  .4*[1 1  4  4M.4/33]);  %  be  incorporated  into  a  report. 

. 376  aet(gcf,’Units’, 'inches’, *po8ition‘,  getfgcf.'PapcrPbsition')); 

377  set(gcf,'DefaultAxesFontSize',9); 

378  whitebg(gcf,V) 

379  pzmap(ae,be,ce.dB) 

380  titie([tlabcl '  Open-Loop  Eigenvalues’]) 

381  axis([-2.2*max(wv)  1 .1  *max(wv)  -2.2*max(wv)  2.2*max(wv)]) 

382  flabd  =  [}; 

383  forI  =  l:fcngth(wv); 

384  flabcl  =  8tr2mat(flabel,  frcq28tr<wv(I)/(2*pi),l)); 

385  end 

386  flabcl(l.:)  =  []; 

387  setfgca.'YTick'.wv) 

388  set<gca,'yrickLabds' .flabcl) 

389  sctCgca.'YOricf.'on') 

390  %  Use  natural  fiequency  (undamped),  fvn,  for  sgrid  command. 

391  waxisn  =  iart(fvn(find(rcal(fvn)  <  2.2*max(wv)/(2*pi)))*2*pi); 

392  waxisn(l)  =  []; 

393  sgrid(.2:.2:l  .waxisn) 

394  ylabelCImaginary  Axis,  Damped  ftcqucncies') 

395  xlabelCReal  Axis,  Exponential  Decay  Rate  (l/sec)') 

396  hold  on 

397  %  Mask  out  horizontal  grid  lines  to  the  right  of  the  poles. 

398  forI  =  l:lcnglh(wv); 

399  ifwv(I)>.l 

400  plot([real(p(find(imag(p)  =  wv(I))))  1 .09*raax(wv)],  wv(I)*[l  l],V) 

401  end 

402  end 

403  %  Rei^ot  the  Imaginary  axis. 

404  plot([0  0],Z2*inax(wv)*[-l  IJ.'w:') 

405  %  Plot  natural  fiequency  manual  grid-1  ines  to  the  left 

406  for  1  s  1  dength(  waxisn) 

407  plot([l  03'*taax(wv)],waxisn*[l  l],‘w:') 

408  end 

409  9b  ylabclf  Imaginary  Axis’) 

410  Kt(gca,‘AspectRatio',[33/44 1]) 

41 1  pos  =  gBt(gca, 'position');  9b  This  is  in  nonnalized  coerdinates 

412  pos(l)a  pos(l)  +  0.05'*pos(3);9b  -i-  po8(3)*0.10;  9b  Raise  the  subplot  but  keep  it  centered. 

41 3  aetfgca.'^aitiao'.pos): 

414  ii^s=pos; 

41 5  nfyosfl )  =  po8(  1 )  +  po8(3); 

416  n^a(4)  =  0.95*n^(4); 

417  n^s(2)  =  pos(2)  +  0.025*pos(4); 

418  axesCpositioa',  nfjxrs) 

419  axi5([-2,2*inax(wv)  l.l*max(wv)  -2.2*max(wv)  2.2*max(wv)]) 

420  Bet(gca,’XCoIor',V) 

421  KiCgca.’XColor'.’k') 

422  flabd  =  []; 

423  for  I  s  l:longth(waxisn); 

424  flabel  =  str2mat(flabel,  fieq2str<real(waxisn(I)/C2*pi)),l)): 

425  end 

426  flabel(l,:)  =  [l; 

427  setfgca.'YTick', waxisn) 

428  8et(gca,'YrickLabel^4abel) 

429  ylabel([' 

430 

431  'Undan^d  Natural  Frcqucncbs'l) 

432  hold  off 

433  end 

434  % 

435  if  priiil_on  =  1 

436  8et(gcf,'hivertHardCopy','on') 

437  print  -deps  fig7.ps 
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438  end 

439  % _ _ _ _ _ 

440  %  Section  (10) 

441  %  Bode  Rot. 

442  %  USE:  ae,  be,  ce,  dc. 

443  % . 

444  % 

445  % 

446  Iniag.phasc.w]  =bodc(ac.be,cc.dc.l,logspaccaogl0(5*2*pi)4ogl(X500*2*pi),500)); 

447  if  jdoi_on  =  1 

448  f^guic(8) 

449  dg 

450  sc^gcf.PaperOricnlation'.'portraji');  %  This  scries  of  coiranands  ctmfigurcs 

451  ict<gcf,'PapcrUnits’, ’inches');  %  Ok  plot  window  to  effectively 

452  ict(gcf,PaperPcMition',[l  1  6.3  3]);  %  be  incoiporated  into  a  report. 

453  icl(gcf,'UmlsVinchc8', “position', gcl(gcf.’PapcrPosiiion')); 

454  iet(gcf,'DBfa3iltAxcsFontSizc',9); 

455  whitd>g(gcf,’k‘) 

456  iul^ot(2U),  scmilogx(wy(2*pi),20*logl 0(mag)) 

457  titie<[tiabcl  ’  Elevation  Mechanism  to  Muzzle  Poinlbig  Angle  Bode  Rot*]) 

458  ylabcK'GaindB') 

459  av  s  [  [min(w)  max(w)l/(2*pi)  min(20*logl0(in2g))  0.95*max(20*logl0(inag))J; 

460  txis(av) 

461  fabsissa  =  SQrt([5;  wv(2:5)/(2^i);  500)); 

462  flabcl^I]; 

463  for  I  =  1  tlcngti^fabsissa) 

464  flabel  =  5tr2inat(QabcI,frcq2i1r(fabsissa(I),l)); 

465  end 

466  Qabel(l,:)  =  t]; 

467  sct(gca,'XTick', fabsissa) 

468  8et(gca,'XTickLabcl  s', flabel) 

469  sct(gca,'YTick',[inin(20*logl0(mag)),  median(20*logl0(mag)),  max(20*Iogl0(mag))]) 

470  grid 

471  subpIot(212),5emilogx(w/(2*pi), phase) 

472  xlabcl(  “Frequency  (Hz)‘).  ylabcl(‘Pliasc  deg') 

473  av  « { [xnm(w)  majc(w)]/(2*pi)  rnin(phasc)  (inax(phasc)+180)]; 

474  axis(av) 

475  set(gca,“Yrick’il80:-180:-600]) 

476  grid 

477  end 

478  % 

479  if  print_on  —  1 

480  set(gcf,“InvcnHardCopy“,'on') 

481  print  -deps  figS.ps;  95?  Print  Uic  file  as  an  encapsulated  Post-Sermt  file. 

482  end 

483  % 

484  95? _ 

485  %  Section  (11)  ~~~ 

486  %  Unit  Inyuisc  Response. 

487  %  USE:  ae,  be.  ce.  dc. 

488  % . 

489  % 

490  95? 

491  ly^x.t]  =  iinpulsc(ac, be, cc,de,l, [0:0.00001 :0.2J); 

492  % 

493  if  plot_on  ==  1 

494  figure(9) 

495  dg 

496  sct(gcf,'PapcrOricniation', ‘portrait');  %  This  scries  of  commands  configures 

497  sct(gcf,‘PapcrUnits’,’inchcs');  %  tl»  plot  windou'  to  effectively 

498  sct(gcf,PajwrPosition“,[l  1  3.8  3J5]);  %  be  incorporated  into  a  report. 

499  sctCgcf, “Units', “inchcs',']^sition',get(gcf,'PaperPosition’)); 

500  sei<gcf,*DBfauliAxcsFantSizc’,9); 

501  pIot(t,y,“3c“,tmin(t)  max(t)],[0  0],  “k:') 

502  avsaxis; 

503  av(3)  =  Z2*av(3); 

504  axis(av) 

505  pos  s=  gct(gca,'positian');  %  This  is  in  normalized  coordinates 

506  pos(2)=  pos(2)  +  (l-0.85)*pos(4)/2;  %  Raise  the  subplot  but  keep  it  centered. 

507  pos(4)=  0.85*pos(4);  %  Slirink  the  heigljt  by  a  factor  of  .85 

508  sct(gca,  “position', pos); 

509  title(*SISO  Unit  Impulse  Response') 

510  ylabelCMuzzle  E>eflcctian  (rad)') 

51 1  xlabel(T cne  After  Newton-Second  Impulse  at  Elevation  Mechanism  (see)') 

51 2  newpos  s  [(pos(l)+pos(3)/6)  (pos(2)+pos(4)/7)  (pos(3)/2)  (pos(4)/3)l; 

513  axes('position',ncwpos) 

514  ttnink  =  t(l:Gcngth(0/30)); 

515  plot(ttrunk,y(l:lcngih(ttrunk)).'k',{0  lOJ.IO  OJ.Tc’) 

516  avs=axis; 

517  av([3  4])  =  av([34])/3; 

518  av([l  2])  =[00.010]; 

519  axis(av) 

520  titlcC  Initial  Response  Closc-Up') 

521  ylabcl(’(rad)') 

522  8ct(gca,'Xrick“,(0  0.005  0.010]) 

523  sct(gca;XTickLabcls’,str2mai(‘0.000‘,'0.005’,'0.01  O')) 


524  xkbcl(‘(sec)“) 

.525  end 

526  % 

527  if  prin:_on  =c=  1 

528  print  -deps  Cg9.p8;  %  Print  the  file  as  an  encapsulated  Post-Script  file. 

529  end  ^ 

530  9S? 

531  av  =  [);po8  =  [];ttrunk  =  [); 

532  % _ 

533  %  Conpleted: 

534  % . . 


<bcam_ploun> 

1  function  [)  a  beant43lot(ncord,ipatjal,y,sgin,canitraintgc*extgc) 

2  %  beam^lotm 

3  ^  []  *beam_plo((ncord,spatial,y,8gtn,extgc); 

4  %  o  Thiam-filegcooratei  a  plot  of  the  output  state  of  a  beam  lystem. 

5  %  o  This  file  uses: 

6  %  fen\jiode_chcck.m  in  lection  1 . 

7  %  geom  check  m 

8  %  fbmJnteipjn  in  aection  2. 

9  %  0  External  generalized  coordinates  may  be  indude  via  extge. 

10  %  o  Specific  iqxit/ou^  variaUe  dcfinitioiis  are; 

11  9fc  ncord ->  The  vector  of  indices  such  that  fpatial(ncord)  is  ttepoaition 

12  %  of  each  pair  of  beam  generalized  coordinates.  (Also  known  as  nodca) 

13  %  spatial  •>  Axial  position  vector,  currently  limited  to  equally  spaced 

14  %  position  vectors  with  position  data  of  every  dx*n  point  such  that 

15  9b  n  =  l;length(spatial)  and  length(^)atial)*dx  equals  max(spatial). 

16  %  y  ->  Ouq>ut  vector.  Contains  the  magnitudes  of  tlte  displtccn»nts  and 

17  ft  rotations  of  the  generalized  coordinates.  It  is  a  vector  of  the  form: 

18  ft  {x(l)  theta(l )  x(2)..jr(n2)  theta(n2)  cxtgc(l )  cxtgc(2)...0xtgc(nxgc)}’. 

19  %  sgra  ->  sgm.  scaled  geometry  matrix  to  describe  tl»  beam. 

20  ft  codstraintgc  ->  Inertial  constraint  generalized  coordinate  vector. 

^l  %  Contains  the  index  of  the  generalized  coordinate  that  is 

22  ft  coupled  to  the  ground  inertial  reference  frame.  Use  []  in 

23  ft  the  event  of  frcc-fiec. 

24  %  extge  ->  External  generalized  coordinate  vector.  Coiuains  the  index  of 

25  ft  the  generalized  coordinate  to  which  it  is  coiqrfcd. 

26  %  o  Created  3  October-  1995  1  2  January  1996  by  Eric  Kalhc. 

27  ft  BenetLabs.  Watervliet  AiacnaJ.NY  12189-4050  <Bkathc@pica.aimyjnil> 

28  ft  Version  1 

30 

31  ft _ _ _ 

32  %  Section  (1)  —  _ 

33  %  A  few  checks  to  be  sure  input  variables  are  the  right  size,  et  cetera. 

^34  ft  This  aection  uses  geam_checkjn  to  validate  the  iiput  geometiy  vectors. 

35  ft  Also  define  the  number  of  indices  of  ^atial,  ns,  the  number  of  gexcralizcd 

36  ft  coordinates  ngc,  et  cetera. 

37  ft  DEFINE;  ncl,  ngc,  nn,  ns,  nxgc. 

38  ft  USE:  extge,  constraintgc,  nargm,  ncord,  spatial,  y, 

39  ft  author  provided  default  value. 

40  ft  POSSIBLY  ALTER:  constraintgc,  extge,  ncord,  spatial  y, 

41  ft . 

42  %  (A)  Check  spatial  &  ncord  &  define  their  length's,  ns. 

43  ft 

44  (ncord,spatial]  =  fcmjQodc_chcck(ncord,:q>atial); 

45  ns  =  length(spatial);  ft  Number  of  indices  of  spatial. 

46  nn  =  lcngth(ncord);  ft  Number  of  nodes  of  ncord, 

47  ncl  =  nn  - 1  ;ft  Number  of  elements  of  the  beam. 

48  ft 

49  ft 

50  ft  (B)  C3teck  &  modify  inertial  canstrainl  vector. 

51  ft 


52  if  constraintgc  ~[]; 

53  constraintgc  s  canstraintgc(:); 

54  constraintgc  =  80rt(constraintgc) ; 

55  if  sum(ceil(canstnuntgc)  -  constraizage)  >  0 

56  constraintgc  =  round(constniimgc); 

57  warning  =  “Constraintgc  must  be  of  integer  values.  It  has  been  rounded.' 

58  end 

59  if  zniz](constraintgc)  <  I 

60  constraintgc  =  []; 

61  warning  sl'Ckmstiaintgc  values  must  match  a  gctteralizcd  coordinate  number. 

62  “Negative  values  inconstant.  Constraintgc  has  been  nullified.'] 

64  if  max(cQnstrainlgc)  >  2*nn 

65  constraintgc  =  {]; 

66  warning  s:  ['Constraintgc  values  must  match  a  generalized  coordinate  number.  '... 

67  'Values  that  exceed  the  number  of  generalized  coordinates . 

68  '  are  inconstant  Conatntintgc  has  been  nullified.'] 

69  end 

70  end 

71  ft 

72  ft  ©  Oieck  to  see  if  extge  included.  If  so,  check  it 

73  ft  &  define  its  length,  nxgc;  else  set  nxgc  =  0. 
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■W  % 

7S  = 

7€ 

7?  011^1;  =  c3lg,c<4', 

78  extgc  =  80it(exlgc); 

79  if  sun^ccilCcxtgc)  -  cxtgc)  >  0 

80  cxlgc  =  round(cxtgc); 

81  warning  = 'Extgc  must  be  of  integer  values.  It  has  been  rounded' 

82  end 

83  ifitiiii(extgc)<  1 

84  cxtgc  =  []; 

85  wanting  »  CExtgc  values  must  match  a  generalized  coordinate  number.  '... 

86  'Negative  values  inconstant  Extgc  has  been  nullified'] 

87  end 

88  if  max(cxtgc)  >  2*nn 

89  extgc  =  t); 

90  warning  =  ['Extgc  values  must  match  a  generalized  coordinate  number. 

91  'Values  that  exceed  tie  number  of  generalized  coordinates 

92  '  are  inccsxstant.  Extgc  has  been  nullified.'] 

93  end 

94  nxgc  =  length(extgc); 

95  end 

96  % 

97  %  (D)  Impose  column  structure  on  y,  and  check  constancy  of  number  of 

98  %  generalized  coordinates. 

99  % 

100y  =  y(0: 

101  rtge  =  lcngth(y); 

102  if  ngc  ~=  (2*nn  +  nxgc) 

103  ifngc<2*nn 

104  wanting  =  ['More  generalized  coordinates  tlian  the  number  of  outputs.'... 

105  'No  corrective  action  lias  been  taken.'] 

106  elseif  naigm  =  5 

107  zgext  =  ones((ngc  -  2*nn),l); 

108  zgextfl  :nxgc)  =  extgc; 

109  extgc  =  2gextCl:(ngc  -  2'*nn)); 

110  wanting  ss  ['Mismatched  number  of  generalized  &  or  external 

111  'couplings,  cxtgc  padded  or  truncated  to  fit  '... 

112  'Further  errors  arc  very  likely.'] 

113  else 

114  wanting  » [‘Fewer  generalized  coordinates  than  the  number  of  outputs.'... 

115  ‘No  corrective  action  has  been  taken.'] 

116  end 

117  end 

118  % 

119  default  =  [];  warning  =  [J; 

120  % _ 

121  %  Section  (2) 

122  %  Confute  the  beam  dcQcction  vectors  for  each  finite  clement  using 

123  %  £em_mterpjn,  and  combine  into  one  beam  deflection  vector. 

124  %  DEFINE:  dcflectv. 

125  %  USE:  ncord,  nn.  ns,  spatial,  y, 

126  % . 

127  % 

128  9o  (A)  Initialize  deflection  vector. 

129  % 

130  dcflectv  =zcros(size(spalia})); 

131  % 

132  %  (B)  For  the  first  clen>cnt  of  the  beam. 

133  % 

134  Icngvscg  »  spalial(nccffd(l):ncord(2));  %  Length  of  finite  element. 

135  [zphi,  zddphi]  =  fcm_inteip(lcngvseg);%  Zphi  contains  the  shape  functions. 

136  % 

137  XV  =  y(l:4);%  The  deflection  of  clement  one  is  a  function  of  the 

138  %  state  of  both  adjacent  nodes.  In  this  case 

139  9o  (xl,thetal,x2,  tl)cta2}. 

140  % 

141  dcflcctv(ncord(l  ):ncord(2))  =  zphi*xv; 

142  % 

143  %  C  For  remaining  elements; 

144  % 

145  forI=2:ncl; 

146  % 

147  lengvseg  =  spalial((ncord(I)+l ):ncord(I+l))  -  spatiaI(ncord(I)); 

148  [zphi,  zde^i]  =  fem_interp(lengvscg); 

149  indL  =  2*1-1; 

150  indR  =  mdL  +  3; 

151  deflectv((ncord(I)+l):ncord(l+l))  =  zphi'*y(indL:indR); 

152  end 

153  % 

154  Iss  [];  indL  =  [];  indR  =  [];  xv  =  [j;  lengvseg  =  [];  zphi  =  {]; 

155  zddphi «[]; 

156  % _ 

157  %  Section  (3) 

158  %  Rot  the  deflected  geometry,  and  external  general  coordinates  in 

159  %  the  current  figure  window .  Note;  labels  and  axis  may  be  set  after 


160  %  the  function  call.  Also  note  that  their  is  room  fiv  in^ovement  with 

161  %  rotational  external  absorbers. 

162  %  USE;  spatial,  dcflectv,  ncord,  nxgc  sgm,  smperk,  y,  extgc,  constralntgc. 

163  % . 

164  % 

165  %  (A)  Confute  &  plot  the  plotting  geometry  matrix.  It  is  composed  of  the 

166  %  scaled  geometry  matrix  and  its  reflection  about  the  axis,  offset 

167  %  by  the  deflection  vector  computed  in  section  2.  Hold  the  jdot. 

168  % 

169  pgm  =  [sgm -igm]  +  dcflectv *oncs(l,2*si2c(8gm,2)); 

170  plot(spatial,pgm,'k’} 

171  hold  on 

172  % 

173  %  (B)  Include  a  centerline  and  mark  off  the  deflected  node  locations. 

174  % 

175  plot(^tial,deflectv,'bO 

176  plot(spatial(ncord),deflectv(ncord),'kx') 

177  % 

178  %  C  Plot  inertial  constraint  locations  separately. 

179  % 

180  if  Iengtb(con8traintgc)  >0 

181  Cor  I  s  l:length(constraintgc) 

182  x^t  =  ^atial(iKX>id(ceil(constraintgc(I)/2))); 

183  xdeflect  s  [0;  deflectv(ncord(ceil(ccnstraintgc(I)/2)))]; 

184  if((canstraintgc(I)/2)- floot(canstraintgc(IV2))  >0; 

185  %  Odd  g.c.  is  translation. 

186  Iwidih  3  gpt(gca,'LiiieWidth'); 

187  %  Plot  a  wide  line  connectian: 

188  linB(xspat*[l  l],xd6fl6ct.'Line Width' ,5*lwidth,'Color','b') 

189  %  plot(x8pat*[l  l],xdcfloct,'k-') 

190  plot(xspatpideQect(2),'ko') 

191  else 

192  pIot(xspat*[l  l]pcdcflect,'g-') 

193  plot(xspat,xdeflect(2),'g*') 

194  end 

195  end 

196  end 

197  % 

198  %  (D)  If  external  absorbers  air  included,  plot  them  separately. 

199  % 

200  ifnargin^O 

201  forI  =  l:nxgc 

202  xspat  s  spatial(ncord(oeIl(extgc(I)/2))); 

203  xdeflect  =  Iy(2*iin+I);  deflcctv(ncord(ceil(extgc(I)/2)))]; 

204  if  ((extgc(IV2)  -  floor(cxtgc(I)/2))  >  0;  %  Odd  g.c.  is  translation. 

205  plot(xspat*[l  l],xdeDcct.'r’) 

206  pIot<xspat,xdeflect(l),'ro') 

207  else 

208  plot(xspat*[l  l],xdellcct,'g’) 

209  plot(xspat,xdeflect(l),*g*'} 

210  end 

211  end 

212  end 

213  % 

214  hold  off 

215  _ 

216  %  Cartq>Ieted: 

217  %  OUTPUT:  None. 

218  % . 

219% _ 


<ei8cn_2ojn> 

1  function  [phi,fv4ab]  =  eigerL2o(M,K,Cd) 

2  %  cigen_2o. 

3  %[phi,fv4ab]=eigcn_2o(M,K,Cd); 

4  %  o  This  m-file  confutes  the  modal  matrix  phi  whose  columns  consist  of 

5  %  eigen  vectors  in  order  of  increasing  correspondiiig  frequency,  omega. 

6  %  o  Tbeeigenvectesra  are  mass  normalized, 

7  %  o  The  relationships  between  upper  and  lower  halves  of  the  first-order 

8  %  eigen vecton,  used  for  damped  mode  shape  deteimmation,  is  discussed 

9  %  in  a  conunented  poition  of  section  four  of  this  m-file . 

10  %  o  This  file  uses; 

11  %  M,  K->n2xn2  mass  and  stiffness  matrices  where  n2s  number 

12  %  of generalizxKl  coordinates. 

13  %  Cd  ->  Optional  n2xn2  damping  matrix  where  n2  =  number 

14  %  of  generalized  coordinates. 

15  %  phi  ’>  n2xD2  matrix  whose  columns  consist  of  the  mass  normalized  eigen- 

16  %  vectors  with  each  column  corresponding  the  respective  fre^ency 

17  %  element  of  omega. 

18  %  fv  ->  n2xl  vector  of  linear  modal  frequencies  (Hz)  sorted  in  order  of 

19  %  increasing  frequency. 

20  %  ilab  ->  Optional  string  matrix  of  row  labels  identifying  the  mode's  by 

21  %  bending  mode  number  or  Rigid  body  mode . 

22  %  o  Qeated  16  October  -  28  November  1995  by  Eric  Katlte. 

23  %  BcnetLabs,Watervliet  Arsenal,  NY  12189-4050  <Bkalho@pica-anny4nil> 

24  %  Version  1. 
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25  %  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

26 

27  % _ 

28  %Scctkm(l) 


^  ■%  Check  the  mass  and  stif£ness  matrices  are  real  and  square,  the 

30  %  same  size,  and  symmetric. 

31  %  DEFINE:  ii2. 

32  %USE:M,K. 

33  %  POSSIBLY  ALTER:  M.  K. 

34  % . 

35  % 

36  [inm,nm]  =  8izc(M): 

37  {ink;,nk] »  sizeCK); 

38  % 

39  n2  =  min([n]m  nm  mk  nk));%  Tlie  number  of  generalized  coordinates. 

40  % 

41  if  mm  -=  nm  1  mk  ~=nk  I  mm  ~=  rak 

42  M=M(l3i2.l3i2); 

43  K  =  K<l;n24m2); 

44  warning  ss  ('Mass  and  sliffiiess  matrices  must  be  same  size  and  ' ... 

45  'square.  They  have  been  truncated  to  ‘  int2str(n2)  ... 

46  '  elements  square.'] 

47  end 

48  % 

49  if“dsreaI(M) 

50  M  =  abs(M) 

51  waroing  = ‘Mass  matrix  must  be  real.  It  has  been  set  to  abs(M).' 

52  end 

53  if~isreal(K) 

54  K  =  abs(K) 

55  warning  ='Stif&iess  matrix  must  be  real.  It  has  been  set  to  abs(K).' 

56  end 

57  % 

58  ifsum(sum(M~=:M'))~=0 

59  warning  =  'M  not  symmetric,  errors  arc  possible.' 

60  end 

61  if  8um(8um(K  ~=  K'))  ~=  0 

62  warning  =  'K  not  symmetric,  errors  are  possible.' 

63  end 

64  % 

65  mm  ^  [];  nm  =  (];  mk  =  {];  nk  =  [];  warning  =  (]; 

66  % _ 

67  %  Section  (2) 

68  %  Check  if  the  damping  matrix  has  been  included.  If  so,  check  it  as  was 

69  %  done  for  the  mass  and  slifliiess  matrices  in  section  1 . 

70  %  DEFINE:  damp_flag. 

71  %USE:Cd,n2. 

72  %  POSSIBLY  ALTER;  Cd. 

73  % . 

74  % 

75  damp_flag  =  0;  %  Initialize  the  damping  flag  to  ofT. 

76  % 

77  if  nargin  =s  3  %  Check  to  sec  If  the  damping  matrix  was  included. 

78  damp_flag  =  1 ; 

79  (mc,nc]  =  size(Cd); 

80  % 

81  if  me  ~=  nc  %  Check  to  sec  if  the  dancing  matrix  is  square 

82  nc  =  min([mc  nc]);  %  If  it  isn't  square,  truncate  it  to  be  square 

83  Cd  =  Cd( l;nc,l  ;nc):  %  and  warn  of  the  problem. 

84  warning  =;  'Damping  matrix  was  not  square.  It  has  been  truncated.' 

85  end 

86  % 

87  if  nc  <  n2  %  Check  to  sec  if  the  damping  matrix  is  the 

88  2jd  =  zcros(n2,n2);  %  same  size  as  M  and  K.  If  not,  pad  or 

89  Zd(l:nc,l:nc)  =  Cd;  %  or  truncate  to  the  same  size  and  warn  of  the 

90  Cd  =  Zd;  %  problem. 

91  warning  =  [Damping  matrix  size  smaller  than  M  &  K.  '... 

92  'It  has  been  zero  padded  to  match  tlie  size.'] 

93  cl3eifnc>n2 

94  Cd*Cd(l3i2,l:n2); 

95  warning  =  [‘Damping  matrix  size  is  larger  than  M  &  K,  '... 

96  Tt  has  been  truncated  to  match  the  size,'] 

97  end 

98  % 

99  if~isrcal(Cd) 

100  Cd  =  abs(Cd) 

101  warning  = 'Damping  matrix  must  be  real.  It  has  been  set  to  abs(Cd).' 

102  end 

103  % 

104  if  sujn(sum{Cd  Cd'))  -<=  0 

105  warning  =  'Cd  not  symmetric,  errors  arc  likely.' 

106  end 

107  me  « [];nc  =  [];Zd-[];  warning  =  []; 

108  % 

109  end 

110  % _ 


111  9b  Section  (3) 

112  %  Connpute  the  undamped  eigen  system. 

113  9bM*ddx  +  K*x=0 

114  %(wA2»M  +  K)'*x  =  0 

115  9bK'^»wA2*M*x 

116  9b  A*x  =  Ian3bda*B*x  The  generalized  eigenvalue  problem. 

117  9b  DEFINE:  phi,  wv. 

118  %USE:M.K. 

119  % . 

120  [j^4unbda}  =  eig(K>l); 

121  % 

122  wv  =  fqrt(diag(lanibda));9b  Circular  fiequcncy  is  the  square  root  of  lambda. 

123  9b 

124  lambdas!]; 

125  9b _ 

126  9b  Section  (4) 

127  9b  If  damping  is  included: 

128  9b  Cozzqjute  the  symmetric  nist>ordct  symmetric  state  equations, 

129  9b  Find  the  Gm-crder  eigen  values  and  vectors, 

130  %  Extract  &e  relevant  eigen  values  and  eigen  vectors,  and 

131  9b  convert  the  eigen  values  to  radial  flequency. 

132  9b  DEFINE:  phi,  lambda. 

133  9b  USE:  M,  K,  Author  supplied  cutoff  frequency, 

134  % . . . 

135  if  daiiq)_flag  =  1 

136  9b 

1 37  9b  Identify  the  expected  number  of  rigid  body  moiks : 

138  9b 

139  nrb  =  8ize(K,l)  -  rank(K);  %  It  is  well  know  that  flic  number  of  rigid 

9b  body  modes  of  a  beam  matches  tbs  rank 

141  9b  deficiency  of  the  stif&icss  matrix. 

142  % 

143  9b  Identify  the  fundamental,  undanqsed,  flexible  mode  frequency: 

144  9b 

145  wv  s  sart(wv);  9b  Sort  the  undamped  frequencies. 

146  &nwv  =  wv(nrb+ 1);  9b  The  fundamental  flexible  mode  fiequcncy  is  the 

147  9b  lowest  frequency  following  the  rigid  body  'zero' 

148  %  frequencies. 

149  9b 

150  9b  Define  a  cut-off  frequency  below  which  the 

151  %  mode  is  over  danqied  or  rigid  body  within  numeric  errors. 

152  9b  59b  of  the  undaiqped  fundamental  seems  a  reasonable 

153  9b  cut-off.  (Note:  if  heavy  use  of  mass  proporticinal  damping  is 

154  %  employed,  low  frequencies  may  be  ovciidamped,  and  mnfiw  this 

155  9b  scheme.  Generally,  mass  proporticaial  damping  is  nmnll  relative 

156  %  to  the  stiffriess  damping,  reducing  Ak  potential  for  proUems.) 

157  9b 

158  feut  =  finwv/20; 

159  9b 

160  %  Symmetric  homogenous  state  equations:  At  qdot  -t-  Bt  q  s:  0 

161  9b 

162  %I0M][xddot]  [-M  0  ][xdot]  [0] 

163  9b  [ M  Cd  ][  xdol ]  +  [  0  K  ]  [  x  ]  =  ( 0 ] 

164  9b 

165  At  s=  [zcro8(n2,n2)  M;  M  Cd]; 

166  Bi  sr  [-M  zcros(n2,n2);  zcros(n2,n2)  K]; 

167  9b 

168  %  First  order  generalized  eigen  problem: 

169  %  lambda  At  q  +  Bt  q  =  0  ->  -Bi  q  =  lambda  At  q 

170  9b  -  - 

171  9b 

172  [ssphijambda]  =eig(-Bt,At); 

173  9b 

174  sslamv  =  diagQambda);  %  Convert  diagonal  eigenvalue  matrix  to  vector. 

175  % 

176  % 

177  9b  Identify  flexible  modes,  by  Andiirg  values  with  significant  imagitraiy 

178  9b  componenis.  Isolate  only  one  half  of  the  conjugate  pairs  by  oriy 

179  9b  keeping  the  roots  with  positive  imaginary  cotnponeiits. 

180  9b 

181  [indflex]  =  find(  knagfsslainv)  feut ); 

182  indflex  ^  mdflexf:); 

183  gb 

184  9b  Identify  rigid  body  modes  by  their  lack  of  imaginary  content,  and  their 

185  9b  close  pniximity  to  the  origin. 

186  % 

187  [indrigid]  ss  Cnd(  imag(sslamv)  >=  0  &  imag(sslamv)  <  fcul  &. ... 

188  abs(real(aalamv))  <  100*  feut ); 

189  indrigid  =  mdrigid(:); 

190  9b 

191  if  sizB(indrigid) nrb 

192  warning  =:  [The  number  of  rigid  body  eigenvalues  found  does  not 

193  'match  the  rank  deficiency  of  K.  The  eigenvector  labels '... 

1 94  'may  not  properly  indicate  the  rigid  body  mocks .'] 

195  end 

196  9b 
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197  wv  =•  mag(Esraww(  [indflex ;  mdrigrdVj) ;  %  Ass^rrob’/;;  nscfial  freqiBaciir's  ajvdl 

198  pid  -=  ic^<ssphi(;  1  K'.dri;gfffii>i;5fe  respcxiivtf  e^igcnvectare. 

m  %• 

200  %  NCTTE:  MaiM.  unit  noracial  izcs  each  eigenvector  independently.  Due  to  the 

201  %  imaginary  content  ofthc  eigen  vectors,  the  normalization  introduces 

202  %  a  new  complex  content  to  the  eigenvectors.  To  investigate  the 

203  %  relationship  bet  ween  die  upper  and  lower  halves  of  the  eigenvectors, 

204  %  and  the  relationship  between  the  eigenvectors  of  convex  conjugate 

205  %  eigenvalues,  the  conqilcx  normalization  must  fust  be  removed.  This 

206  %  may  be  accoo^illshed  as  follows: 

207  %  1}  Identify  the  complex  conjugate  pairs  of  under  damped  eigenvalues.  This 

208  %  may  be  done  visually  using:  p:intmat<[real(sslamv},  imagCnlamv)]),  or 

209  %  iimaybe  accompludbedusing; 

210  %  cplxpair(silamv,10M*cp8*max(ab®(ab«(iBlamv)))).<aeariy,  My  experience 

211  %  that  the  numeric  tolerance  isn't  very  precise.  Different 

212  %  tolerancesmay  be  required  if  using  the  r^dxpair  command.) 

213  %  2)  DetEimine  the  complex  nonnalizadon  scale  used.  This  may  be  done  as 

214  %  follows  for  the  12th  and  13th  eigenvectors  as  an  cxan^le  if 

21 5  %  their  eigenvalues  are  complex  conjugates.  (Substitute  the  indices  of 

216  %  the  conjugate  pain  identified  instep  one  in  lieu  of  12 &  13.) 

217  %  scalel2  =  s^n2+1.12)yical(85idu(n2+l,12)) 

218  %  scaiel3s8sphXn2-i'l,13)yreal(ssphi(n2-t-l,13)) 

219  %  This  uses  the  rolationsh^  that  the  lower  half  of  the  simpl  ifted  eigen> 

220  %  vecton  will  be  real.  The  first  such  value  is  chosen  for  convenience. 

221  %  (ssphi(n2+l :2*n2,12)yrBal(ssphi(n2+l :2*n2,l 2))  demonstrates  each  value.) 

222  %  3)  Renormalize  the  eigenvectors  to  inqxise  the  lower  half  of  the  vectors  to 

223  %  be  real.  Again,  using  the  1 2th  &  1 3th  eigenvectors  as  an  examine: 

224  %  evl2  =  ssphi(:,12)/scalcl2: 

225  %  ovl3*88phi(:.l3)/8calel3: 

226  %  (Note  the  very  small  remaining  imaginary  content  of  the  lower  half.) 

227  %  4)  The  desired  relationship  that  the  upper  half  of  the  eigen  vectors  equals 

228  %  the  lower  half  multiplied  by  the  eigenvalue  may  be  seen  by  comparing  the 

229  %  array  division  of  the  two  halves  with  the  eigenvalue: 

230  %  cvl2(l:n2)ycvl2(n2+l:2*ii2) 

231  %  sslamv(12) 

232  %  cvl3(l:n2)ycvl3(n2+l:2*n2) 

233  %  S8lamv(13) 

234  %  5)  NOTE  that  it  is  legitimate  to  take  just  the  real  part  of  the  first  half 

235  %  of  the  eigen  vector,  and  scale  it  later,  as  I  have  done.  (All  four 

236  %  quadrants  of  the  eigenvector  --  upper^ower  &  imaginaiy/rcal  —  differ 

237  %  ^y  by  generally  complex  constants.) 

238  % 

239  feut  =  [];  At  =  {];  Bl  =  [];  ssplii  =  [];  lambda  =  [];  sslamv  =  [];  hnwv  =  []; 

240  sslamrcal  =  [];  warning  =  [];  inOex  =  [];  indrigid  =  (];  nrb  =  []; 

241  % 

242  end 

243  % _ 

244  %SccUon(5) 

245  %  Check  and  convert  the  eigen  values  to 

246  %  linear  frequencies  (Hz}and  mass  normalize  the  eigen  vectors. 

247  %  Mass  normalized  ->  phi'*M*phi  =  I. 

248  %  ECFINE; 

249  %  USE;  phi,  lambda,  ngc. 

250  %  Alter  phi. 

251  % . 

252  % 

253  if~isrcal(wv) 

254  warning  =  ['Imaginary  frequencies  found.  System  is  likely  to'... 

255  'be  unstable.'] 

256  end 

257  % 

258  fv  =  wv/(2*pi);%  Linear  (Hz)  frequency  is  the  circular  frequcncy/(2'*pi). 

259  % 

260  norms  s  diag(phi''*M*phi);%  For  mass  normalization,  determine  the  nDim*8calc, 

261  iqrhi  s  zeros(size(j^i)); 

262  for  I  =  1 3ize(phi,2) 

263  iiphi(:,I)  =  phi(:,l)/sqrt(nornis(I));%  Independently  scale  each  vector. 

264  ifnphi(2.i)<0 

265  nphi(:,D  =  -  nphi(:,I);  %  Impose  consistent  sign  conventiejn. 

266  end  %  In  tliis  case.  Initial  angle  always  up. 

267  end 

268  % 

269  phi  =  nphij 

270  % 

271  =  [];  norms  5=  [];  nphi  =  [];  I  =  (]; 

272  % _ 

273  %  Section  (4) 

274  9a  Sort  frequencies  and  eigen  vectors  in  order  of  increasing  frequency,  and 

275  9o  validate  orthonormality  of  eigenvectors. 

276  %USE:fv.phi. 

277  9b  Alter  fv,  phi. 

278  % . 

279  % 

280  [y,i)*so^t(^); 

281  fv  =  fv(I); 

282  phi  =  phi(:.I); 


% 

284  %  Testorthooonnality  ofphi: 

285  % 

286  test  ssnDim((  phi"*M*phi  -  cye(size(phi,2))  ),'fin')/norm(phi'*M*'phi,'fro' ); 

287  iftcst>10X-4); 

288  warning  =  ['Orthononnality  of  phi  is  in  question.  The  nonn  of  j*i’'*M  . 

289  'over  ({^'‘*M*pbi  •  I)  is '  nuin2Bti<test) '.  A  signiGcant 

290  'value  indkatei  discrepancies.  Tins  often  occurs  with  two '... 

29 1  'rigid  body  modes  since  the  eigenvector  extraction  doesn"t  ensure'... 

292  'orthogonal  ity  of  the  two  rigid  eigenvectors .'] 

293  end 

294  9b 

295  y  « [1;  I «[};  test  »[1;  warning  =  (]; 

296  _ 

297  %  Section  (5) 

298  %  Label  frequencies  as  rigid  body  or  bending  mode. 

299  %  DEFINE;  riab. 

300  9bUSE;fv,n2. 

302  % 

303  if  nargout »  3;%  Check  to  see  if  rlab  is  requested. 

304  rlab  b  [];%  DoEne  a  null  row  label. 

305  nrb  b0:%  Initialize  the  number  of  rigid  body  modes. 

306  ifn2>«3 

307  if  abs(fv(3))/abs(fv(l ))  >  5000;  %  A  reasonable  numeric  zero. 

308  rlab  =  str2roat(rlab,  'Rigld_Body3fode'); 

309  nrb  =  l; 

310  9k 

311  if  aba(fv(3))/ab8(fv(2))  >  5000;  %  A  reascnable  numeric  zero. 

312  rlab  « itr2mat(rlab,  'Rigid_Body_Mode'); 

313  nrbB2; 

314  end 

315  end 

316  else  9b  If  fewer  than  3  modes,  identifying  the  r-body  mode  is  skipped. 

317  forI  =  l;n2 

318  rlab  =  8tr2mat(rlab,  ['ModcJ  int2str(I)]); 

319  end 

320  nrb  =  n2;%  This  prevents  the  redundant  assignment  of  bending  mode 

321  9a  row  labels. 

322  end 

323  9b 

324  for  I  =  l;(n2*nrb) 

325  rlab  =  str2mat(rlab,  ['Bcnd_Mode_‘  inl2str(I)l); 

326  end 

327  end 

328  9b 

329  rlab(I,:)  =  [];9k  Nullify  initial  empty  string. 

330  % 

331  nrb  =  [l;I  =  n; 

332  % _ 

333  9bCcBiq)leted: 

334  %  OUTPUT:  phi,  rlab. 

335  9b . 

336  96 _ 


<&m2ssjn> 

1  function  [A.B.CJJ]  =  fcm2ss(M,K.Cd,dabeI) 

2  %  fem2ss. 

3  %  [A.B.C.D]  =  fcm2s8(M.K.Cd.tlabcl) 

4  %o  This  m*  file  generates  the  first  order  state*  space  irxrdel  from  the 

5  9k  mass,  stiffness,  and  damping  matrices. 

6  %  o  Specific  variable  definitiom  are; 

7  %  M,  K,  Cd  ->  nTxnl  mass  and  stiffriess  and  damping  matrices  where  n2  b  number 

8  %  zi2  =  number  of  generalized  coordinates. 

9  %  A,  B,C,D->  State-Space  Matrices  as  in: 

10  %  dqv  ss  A*qv  +  B'^iv 

11  %  yv  =  C^qv  +  D*uv  ...  where  qv  =  state  vector 

12  %  uv  =  input  vector 

13  %  yv  =  output  vector 

14  %  tlabel->Optianalstringtoenable,  and  label,  matrix  printing. 

15  %  Note:  labels  only  valid  for  beam  general ized  coordinates. 

16  9b  o  Qeatcd  14  September  •  05  October  1995  by  Eric  KsUhe. 

17  %  Bcnet  Labs,  Watervliet  Arsenal,  NY  12189-4050  <Bkad]e@pica.armyjnil> 

%  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

19  9b _ 

20  9k  Section  (1) 

21  9k  Define  the  number  of  state  variables  and  generalized  coordinates. 

22  9k  DEFINE:  n2,nq. 

23  %  USE:  alpha,  beta,  M.  K. 

24  % . 

25  9k 

26  n2siize(M,l);9k#  of  generalized  coordinates. 

27  nq  =  2*n2;9k  #  of  state  variables. 

28  9k 

29  9b _ 

30  %  Section  (2) 
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31  %  Compute  the  first  order  matrices  as  in: 

32  9E>[dx]  =  (  0  I  ][x]  +  [  0] 

33  %  (ddx  ]  =  [-mv(M)*K  -inv(M)*C  ]  [dx  ]  +  [  inv(M)  ]  [  F] 

34  % . . 

35  %  dq  =  A  *  q  +  B  *  u 

36  % 

37  %  «St  y  =  C*q +  D*u;  Where  Ill  use  the  convention  [y]  =  {x]. 

38  % 

39  %  DEFINE:  A,  B.C.D. 

40  %USE:Cd.M.K. 

41  % . . 

42  %% 

43  A  =  [zcros(n2,n2)  cye(n2);  -M\K  -MNCd] ;  %  Matrix  division  preferred  to 

44  B  =  [zcros(n2,n2);iiiv(M)];  %  explicit  inversion-(Rcf.  Guide) 

45  C  =  [cyB(n2)zcros(n2^)]; 

46  D  Bzeros(ii2rD2); 

47  % 

48  _ _ 

49  %  Seetkm  (4) 

50  %  If  Uabel  is  set,  print  the  state-space  matrices. 

51  %  USE:  C,  K,  M,  n2,  nargin,  tlabcl,  author  provided  naming  convention. 

52  . 

53  % 

54  if  nargin  =  4 

55  if  issti(tlabel);  %  Cheeks  to  see  if  tlabcl  is  a  string. 

56  if  strcmp(tlabcl, 'Uabel');  %  Checks  to  see  if  Uabel  is  used. 

57  tlabcl  =  I'Bcam'];  %  Ifso,  a  default  is  applisd. 

58  else 

59  tiabcl(l)  =  uppci<dabcl(l)):  %  Imposes  upper  case  on  first  letter. 

60  end 

61  else 

62  Uabel  =  ['Beam'];  %  Default  is  applied  in  no  valid  Uabel  given. 

63  end 

64  name  =  [Uabel  ‘  State-Space  Matrix 

65  dqlab  =  [); 

66  qlab  =  []; 

67  ulab  s=  []; 

68  ylab  =  []; 

69  forI  =  l:n2/2 

70  qlab  *  [qlab  ‘x’  mt2str(l) ' ']; 

71  ^ab=  [qlab'theu’mt2str(l)“]; 

72  dqlab  =  [dqlab  'dx'  int2su(I)  ‘  '1; 

73  dqlab  =  [d<^ab  'dtheta'  int2str(l) ' ']; 

74  ulab  =:  [ulab  ‘F  inl2sti<I) ' ']; 

75  ulab  =  [ulab  'M'  inl2str<I)  ‘ ']; 

76  end 

77  ^ab  =  qlab; 

78  qlab  =  [qlab  dqlab]; 

79  forI  =  l:n2/2 

80  dqlab  =  [dqlab  'ddx'  mt2str<I) ' ']; 

81  dqlab  =  (dqlab  'ddtheta'  mi2str(I) ' ']; 

82  end 

83  % 

84  priniinat(A,[namc  'A'], dqlab, qlab) 

85  printmatCB, [name 'B'j, dqlab, ulab) 

86  printniat(C,[namc  'C], ylab, qlab) 

87  printinat(D,[namc  'D'], ylab, ulab) 

88  end 

89  % _ _ _ 

90  %  Completed: 

91  %  OUTPUT:  A.  B,C,D. 

92  % . 

93  % _ 

<iem_bcaincljn> 

1  function  [Mc,Kcjs:fcm_bcameI(lengv,lrho,lFO 

2  %  fcm_beaincljn 

3  %  {Me,Kc]-fcm_bcainelOengv4rho4EI) 

4  %  o  Element  Matrices  for  Euler-BcmoulU  Beam  (FEM  approach) 

5  %  undergoing  transverse  vibration. 

6  %  o  This  file  uses: 

7  %  geom_checkjm  in  accUoii  1 , 

8  %  fcm_mtBrpjn  in  section  4. 

9  %  o  Ii^ut/Output  Variables: 

10  %  Nfc  ->  4x4  clement  mass  matrix  for  coordinates 

11  %  (xl,thctalpc2,theta2) 

12  %  Kc  •>  4x4  element  stiffness  matrix  for  coordinates 

13  %  (xl,thctal,x2,theta2) 

14  %  Icngv  ->  Vector  of  iig>ut  clement  positions,  evenly  spaced. 

15  %  (commonly  in  rnillimetcrs  fiom  1mm  to  next  node-lhis  node.) 

16  %  lrho->  variable  linear  density  at  positions  that  correspond  to 

17  %  leugv. 

18  %  lEI  ->  variaUc  El  (bending  resistance)  at  positions  Uiat  conespond 

19  %  to  Icngv, 

20  %  o  *11115  file  was  created  using  elebeamun  as  a  guide,  which  was  programmed 

21  %  by  Youdan  Kim,  Dept,  of  Aerospace  Eng.,  Texas  A&M  University. 


22  %  o  The  integration  technique  used  here  to  form  the  inertial  and 

23  %  lUffiKss  matrices  of  each  'finite'  element  of  Uk  beam  is  drawn 

24  %  from:  Junkins,  “Introduction  to  Dynamics  and  Control  of  Flexible 

25  %  Structures,”  equmUons  4.101  and  4.1 02. 

26  %  o  Created  31  August  -  6  October  1995  by  Eric  Kathe. 

27  %  BcnotLabs.WareTvlict  Arsenal,  NY  12189-4050  <ekadjo@pica.amiyjnil> 

28  %  ^^^'^^aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

29  % _ 

30  %Sectk)n(I) 

31  %  A  few  checks  to  be  sure  input  variables  are  the  right  size,  et  cetera, 

32  %  This  section  uses  gcom_checkjn  to  validate  Uie  input  gecanctry  vectors. 

33  %  USE:  lengvJbboJEI. 

34  %  POSSIBLY  ALTER:  icngv^riioJEI. 

35  % . . 

36  % 

37  [tengv4rho4EI]«gcooa_chBck(lengv,lihoJEI);9o 

38  % _ 

39  %  Section  (2) 

40  %  Extract  several  values  from  the  data,  including  the  spatial  resolution. 

41  %  DEFINE;  deltal,h,nl. 

42  %  USE:  Icngv. 

43  % . 

44  % 

45  dcJtal  =  mcan(difi(lcngv)); 

46  h  =  maxOcngv); 

47  nl  =  length(lcngv); 

48  % _ 

49  9b  Section  (3) 

50  9b  If  the  geometry  vectors  of  the  clement  are  short,  the  data  is  stretched 

51  9b  to  make  it  longer  for  higher  reseJulion  of  the  iimer-product  integral 

52  %  approximation  This  zcro-order-hold  like  approach  preserves  total  mass. 

53  9b  DEFINE:  mss. 

54  %  POSSIBLY  ALTER;  iltal.lEI,  Icngv,  bho, 

55  %  USE:  deltal,  lEI,  lengv,  Irho,  nl,  author  provided  default  value. 

56  9b . . 

57  9b 

58  mss  =  50;  9b  Authca  defined  minimum  sample  size  or  spatial  resolution. 

59  9b 

60  ifnl<mss; 

61  mf  =  cetl(in8aU);  9b  integer  magnification  factor. 

62  tsnl  *nl*mf;  9b  New  lengthis  of  {(ms8+l)<2*nass-l)}. 

63  rstndex  =  (l:rsnl)';  %  Set  the  new  resample  index  column  vector. 

64  9b 

65  tsdeltal  =  deltalAnf;  9b  Redefine  the  new  resample  deltal. 

66  rslcngvssr8dcltal*iaindcx;  9b  Define  new  resample  Icngv. 

67  9b 

68  rslrhom  =  lrlu3(:,oncs(l,mf))';%  Make  a  matrix  of  repeated  colunons. 

69  rslrho  =  ralrhaoi(:);9b  Convert  matrix  to  single  column  vector  with  h 

70  %  value  repeated  mf  limes,  (Like  a  zcro-ottfcr-hdd.) 

71  % 

72  rslEIm  =  lEI(:,ancs(l  ,in0)' ;9b  As  above. 

73  ralEUislEMO; 

74  9b 

75  deltal  s  isdeltal;  9b  Note:  by  the  change  of  deltal,  the  resample 

76  Icngv  =  rslengv;  %  effect  on  liho  &  1£I  is  accounted  for  in  the. 

77  Iriio  ss  islrho;  9b  integral  approKimation  of  section  5. 

78  lEI  =  raIEI; 

79  end 

80  9b 

81  mf  ss  0;  rsdeltal  =  [];  nindex  =;  [];  rslengv  =  [];  rslrho  =  []; 

82  rslEI  =  [];r8nl  =  n; 

83  9b  _ _ _ 

84  9b  Section  (4) 

85  9b  Define  and  numerically  evaluate  the  interpolation  functions  and 

86  9b  derivatives  at  the  resedution  of  the  input  spatial  vector,  lengv. 

87  %  DEFINE:  zphi,  zde^hi. 

88  9b  USE  lengv. 

89  9b . . 

90  % 

91  [zphi,  zddphi]  fcm_inteip(lcngv); 

92  9b _ -  _ _ 

93  9b  Section  (5) 

94  9b  Numerically  evaluate  the  integrals  of  Junkins,  oq((4.102)  mmg 

95  %  an  inoer  product  estimation  for  the  integrals. 

96  9b  DEFINE;  Me.  Ke. 

97  %  USE:  deltal,  lEI,  Irho,  zphi,  zddphi. 

98  9b . . 

99  % 

100  Me  ss  zeros(4,4);  Ke  =  zcros(4,4);%  Initialize  the  matrices. 

101  for  I  =  1:4 

102  forj=l:i 

103  Me(ij)  =  suin(lrtio,*zphi(:,I).*zphi(:  j))*dcltal; 

104  Kc(ij)  ss  sum(lEI.*zd<^hi(:.I).*zdc^i(:  j))*deltal; 

105  end 

106  end 

107  9b 
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1Q8  I  =  1:5 
iQfif 

m  McOj>Mc(j.i); 

111  Kc(ij)=KeCj,i); 

112  end 

113  end 

114  % _ 

115  %  Ccxnplctcd: 

116  %  OUTPUT:  Me.  Kc. 

117  % . 


<fem_farcc.m> 

1  function  [F]  *  fcm_farcc(5patial4forcc4momcntjicord,tlabcl) 

2  %  fcin_forccjn 

3  %  [F]  =  fcm_foroc(spatial4fcircedniomenl;ncord,dabel); 

4  9p  o  This  operator  camputes  the  force  vector,  F, 

5  %  for  an  Euler* Bernoulli  beam  using  the  FEM  u  ith  standard 

6  %  leacticn  force  techniques. 

7  %  o  The  iiq}ut  geometry  vector  spatial  is  generally  entered  and  coo^uted 

8  %  using  gpomf_'*  on. 

9  %  o  The  node  index  vector,  ncord  is  generally  entered  and  conqruted  using 

10  %  fcmjneshjn. 

11  %  o  This  file  uses; 

12  %  gcom_checkjn  in  seetbn  1 

13  %  fcm_node_checkjn  in  section  2 

14  %  gcom_chcckjn 

15  %  o  Specific  variable  definitions  am: 

16  %  spatial  *>  Axial  position  vector,  currently  limited  to  equally  spaced 

17  %  position  vectors  with  position  data  of  every  dx*n  point  such  that 

18  %  n  =  l:lcngth(spalial)  and  lcngth(spalial)*dx  equals  niax(spatial). 

19  %  Iforcc  •>  Beam  transverse  force  vector  such  that  each  index  value 

20  %  corresponds  to  a  lateral  force  iirq>osed  at  the  beam  position  of  the 

21  %  respective  spatial  value  at  tlic  same  index. 

22  %  lmoiiicnt*>  similar  to  Iforcc  except  for  moment  loading  in  lieu  of 

23  %  transverse  force  loading. 

24  %  ncord  ->  The  vccIot  of  indices  such  that  spatial(ncard)  is  the  position 

25  %  of  each  pair  of  (nel +1 )  general  ized  coordinates . 

26  %  tlabcl  ->  Enables  priming  of  tlie  force  vector. 

27  %  If  valid,  the  string  of  tlabel  is  incorporated  into  tlie  listing  to 

28  %  describe  the  beam. 

29  %  F  •>  Out-put  force  vector  of  the  second-order  self-adjoint 

30  %  system  of  size  2*<nel+l )  by  1 .  (The  generalized  coordinate 

31  %  vector  in  this  case  consists  of  Ixl  thetal  x2tlxita2  ..thcta(nel+l)]'. 

32  %  o  Created  05  October  1995  by  Eric  Katlic. 

33  %  BeiKtLabs,  WatervUct  Aisend.NY  12189-4050  <ekalhc@pica.armyjnil> 

34  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

35  % _ 

36  %Scaion(l) 

37  %  A  few  checks  to  be  sure  input  variables  are  the  right  size,  et  cetera. 

38  %  This  section  uses  gcara_checkjn  to  validate  the  iiqjut  geometry  vector. 

39  %  Also  define  tlte  number  of  elements  of  spatial,  ns.  The  ncord  will  be 

40  %  checked  later,  in  section  2. 

41  %  DEFINE:  ns. 

42  %  USE:  Ifocc,  Imoment,  spatial. 

43  %  POSSIBLY  ALTER:  Ifoce,  Iraomcnt,  spatial. 

44  % . 

45  % 

46  [spatial]  =  gcam_chcck(spatial); 

47  ns  =  lcngth(spatial);  %  number  of  elements  of  spatial, 

48  % 

49  Iforcc  =  lforcc(:):%  Impose  column  structure  on  vector. 

50  if  Iengtb(lforcc)  -=  ns 

51  zvector  s2eros(ns,l); 

52  zvectoifsizcO force)) « lforce:%  If  Iforcc  larger  zvector  is  too  big, 

53  Iforcc  ss  zvcctQi<  l:ns);%  then  it  is  truncated,  else  zero  pad. 

54  warning  ^  CLforce  must  be  same  length  as  spatial.  It  has  been'... 

55  "padded  or  truncated  to  size.  Errors  likely.'] 

56  end 

57  % 

58  ImomcDt  =  hnomem(:);9b  Impose  column  sinicturc  on  vector. 

59  if  Icngthflmomcnt)  ns 

60  zvector  =  zcros(ns,l ); 

61  zvectoi(sizc(lmoincm))  =  lmamem;%  If  Imoment  larger  zvector  is  too  big, 

62  Imoment  =  zvectorf  1  ;ns)  ;9b  then  it  is  truncated,  else  zero  pad . 

63  wamings:['Lmomem  must  be  same  length  as  spatial,  lihasb^n'... 

64  "padded  or  truncated  to  size.  Errors  likely.'] 

65  end 

66  % 

67  warning  =  [];  zvector  =  []; 

68  % _ 

69  %  Section  (2) 

70  %  Validate  &  sort  node  vector,  ncord.  Also  determine  the  number 

71  %  of  nodes,  xm,  and  number  of  elements,  nel. 

72  %  This  section  uses  fem_node_check.m  to  validate  iIk  node  vector. 

73  %  DEFINE:  nn,  nel. 

74  %  USE:  ncord,  ns. 


75  %  POSSIBLY  ALTESt:  ncord. 

76  % . 

77  % 

78  [ncord,spatial]  » fcin_nodc_chcck(ncord, spatial); 

79  nn  =:  length(ncord);  %  number  of  nodes  of  ncord. 

80  % 

81  nel=nD-l; 

82  % _ 

83  %  Section  (3) 

84  %  Detennine  the  equlvalem  node  force  equation  for  lateral  loading. 

85  % 

86  %  f 

87  %  a  A  b 

88  %  _->  k - X - >l<- - h-x - >k-_ 

89  %  /  _ 1 _  \ 

90  %1ML  I XXXXXXXXXXXXXXXXXXXX  BEAM  ELEMENT 
XXXXXXXXXXXXXXXXXXXIMR  I 

91  %  V  - ^  _/ 

92  %  -_l< - h - >l_- 

93  %  1  L  ! 

94  %  FL  FR 

95  % 

96  %  USE:  Author  provided  data  as  referenced. 

97  %Dcfiite:mlf,fl£,mrf.fif. 

98  % . 

99  % 

100  %  Formulae  horn:  Sennett, "Matrix  Analysis  of  Structures,"  Prentice 

101  %  PrentioB-Piall,  1994,  page  69.  (Alt.  reference  below.) 

102  % 

103  flf  =  ‘(f).*((h-x)/2).'*(2'*x+h)Ah^3)';%  Dot  notation  allows  for  the  use 

104  mlf  =  '(f).*(x).*((h-x).''2)/(h^2)';%  of  the  eval  command  in  section  5. 

105  frf  s  ’(f).*(x.''2).n3 •h-2*x)/(hA3)'; 

106  inrf*'(f).*(x.A2).*(h-x)/(h^2)'; 

107  % _ 

106  %  Section  (4) 

109  %  Determine  the  equivalent  node  force  equation  for  moment  loading. 

no  % 

111  %  a  I  b 

112  %  _->  k - X - >_<- - b-x - >!<•_ 

113  %  /  _ /  \ _  \ 

114%  I  ML  IXXXXXXXXXXXXXXXXI  m  XXX  BEAM  ELEMENT  XXXXXXXXXXX I 
MR  I 

115  %  V  - - -A  / 

116%  -_l< - h - >I_- 

117  %  I  L  I 

118  %  FL  FR 

119  % 

120  %  USE:  Author  provided  data  as  referenced. 

121  %  Define;  mlm,  flm,  znrm,  fim. 

122  % . 

123  % 

124  %  Formulae  from:  Buchanan, "Theory  and  Problems  of  Finite  Element 

125  9o  Analysis,"  McGraw-Hill,  Schaum's,  1995, page  111. 

126  %  (Alt  reference  above.) 

127  % 

128  flm  =  '-6*(m).nx).*(h-x)/(b«3)'; 

129  mlm  =  •(in).*(h-x).*((h-x)-2*x)Ah^2)'; 

130  frm  =  '6*(m).*(x)*(h-x)/(b^3)'; 

131  mrm  =  •(m).*(x).*(x-2*(h-x))Ah^2)'; 

132  % 

133  % _ 

134  %  Section  (5) 

135  %  Evaluate  the  force  vector  for  each  flnite  element  and  combine 

136  %  into  a  cocz^ilete  system  force  vector. 

137  %  DEFINE:  Pv. 

138  %  USE:  Iforce,  Imoment,  ncord,  nel,  nn,  spatial,  mlm,  flm,  mim,  frm 
139%  ralf,flf,rarf.frf. 

140  % . 

141  % 

142  %  (A)  Define  the  number  of  generalized  coordinates  and  initialize  the 

143  %  fierce  vector,  F: 

144  % 

145  n2  =  2*nn; 

146  F  =  zero8(n2.1); 

147  % 

148  %  (B)  For  &e  first  element  of  the  beam: 

149  % 

150  X  *  spatial(ncord(l)nicord(2));  %  Length  vector  of  finite  element. 

151  f  =  lforce(ncord(l)mcord(2));  %  Force  vector  of  finite  clement. 

152  m  =  Imomcnt(ncord(l):ncord(2)):  %  Moment  vector  of  finite  element 

153  h  s  inax(x);%  Length  of  element. 

154  % 

155  FVe  s  [sum(evBl(flf)  '*■  eval(fim));%  The  first  elements  contributian  to  F. 

156  sum(eval(nilf)  -f  eval(rolm)); 

157  suiii(eval(frf)  +  oval(frin)); 

1 58  suin(eval(inrf)  +  eval(inrm))] ; 
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159  % 

160  F(1 :4)  =  FVc;%  Adds  in  tlic  contribution  of  the  first  element  to  F. 

161  % 

162  % 

163  %  ©  For  remaining  elements: 

164  %  (The  looping  sum  algebraically  couples  the  elemental  node  forces 

165  %  by  overlapping  them  when  defining  the  system  force  vector.) 

166  % 

167  for  I-2:nel: 

168  % 

169  X  »  ^atial((ncord(I)+l):ncord<I+l))  •  5patial(ncord(l)); 

170  f — lforcc((ncard(l)-i-l):ncord(l4-l));  %  Force  vector  of  finim  element, 

171  m  —  lmaroent((ncord(I)-f  l):ncord(I't-l ));  %  Mogment  vector  of  finite  element. 

172  h  =  max(x);%  Length  of  element. 

173  % 

174  FVe  =  Isuro(cval(flf)  +  cval(flm));%  Later  elements  contributian  to  F. 

175  fum(eval(mlO  +  cval(mlm)); 

176  aum(eval(frf)  +  cval(fnn)); 

177  fuin(eval(mrO  +  cval(mnn))  j ; 

178  % 

179  indl=2*M;ind2^indl+3; 

180  P(mdl:ind2)»F(mdl:ind2)  +  FVc; 

181  end 

182  % 

183  I  =  [];indl*[];ind2  =  [];x=sn:f  =  n;h  =  n;m  =  (|; 

184  n2  =  [];FVc  =  []: 

185  % _ _ 

186  %  Section  (6) 

187  %  If  tlabel  is  set,  print  the  nodal  force  vector. 

188  %  USE;  F,  nn,  naigin,  tlabel,  autlior  provided  naming  conventiort 

189  «.  POSSIBLY  MODIFY:  tlabel. 

190  9c . 

191  % 

192  ifnargin=5 

193  if  is9tr(tlabel);  9o  Checks  to  see  if  tlabel  is  a  string. 

194  if  8trcmp(tiabel, ‘tlabel'):  %  Qiccks  to  see  if  tlabel  is  used. 

195  tlabel  =  [‘Beam'];  %  If  so,  a  default  is  applied, 

196  else 

197  tlabel(l)  =  uppcr<tlabcl(l)):  %  Imposes  upper  case  on  first  letter. 

198  end 

199  else 

200  dabcl  =  ['Beam'];  %  Default  is  applied  if  no  valid  tlabel  given. 

201  end 

202  name  =  [tlabel  ’  Nodal  Force  Vector’}; 

203  ulab  =  (]; 

204  forIs:l:nn 

205  ulab  =  [ulab  V  ml2str<I)  ’ ']; 

206  ulab  =  [ulab  M' int2str(I)  "]; 

207  end 

208  % 

209  pTiniinat(F,najix;,ulab,[]) 

210  end 

211  9o 

212  ulab  =  []; 

213  % _ _ _ 

214  %  Conylelcd: 

215  %  OUTPUf:  F. 

216  % . 

217  % _ _ _ 

<fcm_formj3i> 

1  function  [M.K]  =  fem_fonn(spatial,Idcn3EUnbdcnjicord, tlabel) 

2  %  fciit_fQrnLm 

3  %  [M,K]  5=  fcm_fc3nn(spatial4dcn4EI4nbdcn,ncord,tIabcl) 

4  %  o  This  m-file  generates  the  mass  and  stif&ess  matrices  for  arbitrary 

5  %  beams  as  described  in  Junkins,  "Introduction  to  Dynamics 

6  9c  and  Control  of  ficxible  Struct ures,"  pp.  200 

I  9o  o  This  operator  computes  the  mass  and  siif&Bss  matrices  (M,K) 

8  %  for  an  Euler- Bernoulli  beam  using  the  FEM  witli  standard 

9  %  (cubic  spline)  interpolation  functions.  M  and  K  arc  the 

10  %  symmetric,  positive  definite  (or  semi-definite)  coefficusnt  matrices 

II  %  in  the  linear  system:  M  ddxv  +  C  dxv  +  K  xv  =  fv 

12  %  o  The  iiyut  geometry  is  generally  entered  and  computed  using 

13  %  '*_gcQmfjn. 

14  %  o  The  node  index  vector,  ncord  is  generally  enteicd  and  confuted  using 

15  9o  fem_mcshjn. 

16  %  o  This  file  uses: 

17  9c  geom_chcckjn  in  section  1 

18  %  fem_nodc_chcck  jn  in  section  2 

19  9o  geom_checkjn 

20  %  fism_bcarad[jn  in  section  4 

21  %  gcom_checkjn 

22  9i!  fism-intcipjn 

23  %  gcara_chcckjn 

24  %  0  Non  beam  masses  arc  also  included. 

25  9o  Q  Specific  variable  definitions  arc: 


26  %  spatial  ->  Axial  position  vector,  currently  limited  to  equally  spaced 

27  %  position  vectors  with  position  data  of  every  dx  •n  point  such  that 

28  %  n  l:length(8patial)  and  length(5palial)*dx  equals  max  (spatial). 

29  %  Idcn  •>  Beam  linear  density  vector  such  that  ca^  index  value 

30  %  conesponds  to  the  beam  position  of  the  respective  spatial  value 

31  %  at  the  same  index. 

32  %  lEI  ->  similar  to  Iden  except  for  linear  El  cross-socticn  properties. 

33  %  lnbdcn->  similar  to  Idcn,  except  this  records  the  inertia  of  non-beam 

34  %  masses  that  are  attached  to  t^  beam. 

35  9b  ncord  ->  The  vector  of  indices  such  that  8patial(ncord)  is  tl»  position 

36  9b  of  each  2*(nel+l)  generalized  coordinates.  (Also  thought  of  as  nodes.) 

37  9b  tiabel->  Enables  plotting  ofthe  beam  mass  and  stifEnss  matrices. 

38  %  If  valid,  the  string  of  tlabel  a  incorporated  into  the  plot  to 

39  9b  describe  the  beam. 

40  9b  M,K  ->  Out-put  mass  and  itifiheis  matrices  of  the  aecoad-order  self-adjoint 

41  9b  system  commonly  of  size  2*(nel+l)  square.  (The  generalized  coordinate 

42  %  vector  in  this  case  consists  of  [xl  dieul  x2  tlKta2  ..theta(nd-t-l)]'. 

43  9b  o  This  file  was  created  usina  beamfemjn  as  a  guide,  whkh  was  pmgraTnrmd 

44  %  by  Youdan  Kim,  Dept  of  Aerospace  Eng.,  Texas  A&M  University. 

45  %  o  Oeated  13  September -24  October  1995  by  Eric  Kathe. 

46  %  Benet  LAbs,  Witorvliet  Arsenal,  NY  12189-4050  ^Blcatfifygipiea -army -mil  ai 

47  %  ^^'tAAAAAA/WAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAA 

48  % _ 

49  %  Section  (1) 

50  %  A  few  checks  to  be  sure  input  variaUcs  are  the  right  size,  et  cetera. 

51  9b  This  section  uses  geom^checlcm  to  validate  toe  isput  gecxnetry  vectors. 

52  9b  Also  define  the  number  of  elements  of  spatial ,  ns.  The  ncord  be 

53  %  checked  later,  in  section  2. 

54  9b  DEFINE:  ns. 

55  9b  USE:  Idcn,  lEl,  Inbden,  spatial . 

56  9b  POSSIBLY  ALTER:  Idcn,  lEI,  Inbden,  spatial. 

57  9b . 

58  9b 

59  [spatial4dcn4EI4nbden)  =  geom_ch;ck{8paUal4den4EI4nbdcn); 

60  ns  =  length(spatial);  9b  number  of  elements  of  spatial , 

61  9b _ 

62  %  Section  (2)  — — 

63  9b  Validate  &  sort  node  vector,  ncord  Also  determine  the  number 

64  9b  of  nodes,  nn,  and  number  of  elements,  ncl, 

65  %  This  section  uses  fem_nodc_chcckjn  to  validate  tin  node  vector, 

66  %  DEFINE:  nn,  ncl. 

67  %  USE:  ncord,  ns. 

68  9b  POSSIBLY  ALTER:  ncord. 

69  9b . 

70  9b 

71  [ncorcUpatial]  =  fem_node_check(ncord,spatial); 

72  nn  =  length( ncord);  9b  number  of  nodes  of  ncord 

73  9b 

74  nelssrm-l; 

75  9b _ _ _ _ 

76  %  Section  (3) 

77  9b  Combine  beam  and  non-beam  linear  densities: 

78  9b  DEFINE:  Idcnt. 

79  %  USE:  Idcn,  Inbden. 

80  9b . 

81  9b 

82  Idem  =  Idcn  +  Inbden;  9b  Net  linear  density  including  beam  and  non-beam. 

83  9b 

_84  9b _ 

■85  9o  Section  (4) 

86  9a  Compute  the  mass  and  itif&iess  matrices  for  each  fmite  clement  using 

87  9b  elebeamintjn,  and  combine  into  complete  system  M  &  K  matrices. 

88  9b DEFINE: K,M. 

89  9o  USE:  Idem,  lEI,  ncord,  nel,  nn,  spatial 

90  9c . 

91  %  For  the  first  elemem  of  the  beam 

92  9c 

93  Icngvscg  =  8patial(ncord(l  )mcord(2)):  9b  length  of  finite  clement, 

94  Irhoteg  =  ldem(ncocd(l)mcord(2));  9b  linear  density  of  finite  element. 

95  lEIseg  =  lEl(ncord(l)aicard(2));  9b  El  distribution  over  finite  elemem. 

96  9b 

97  [Mc.Kc]  =  fem^beamel(lcngv8eg,  Irhoscg,  lElseg);  9b  elemem  M&K. 

98  9b 

99  ngee  =  sizc(Mc,l);  %  The  number  of  elemental  generalized  coordinates. 

100  9o  (Commonly  four  corresponding  to:  [xL  ttetaL  xR  thctaR].) 

101  9b 

102  n2=^ngce/2)*(mi);%  n2  is  the  total  number  of  generalized  coordinates. 

103  9b 

104  %  Initialize  the  Matrices 

105  9b 

106  M  zcroe(n2jj2); 

107  K=zcros(n2ji2): 

108  9b 

109  M(la3goc,lmga!)  =  Mc; 

110  K(lmgcc,lmgcc)  =;  Kc;  9b  Add  in  elemem  M&K  into  total  M&K. 

111  9b 


112  ^  FocnaaAB-iaX’y.lyEiiBnts: 

113  %  fE&r5o3\>ci«5tnn  algebraically  couples  the  elemental  matrices 
1l1’4  %  by  fl’yTLriapping  them  when  defining  the  system  matrices.) 

115  % 

116  forlslmel; 

117  % 

118  Icngyseg  =  spatial((ncord(I)+l):ncard(I+l))  -  spatial(ncord(I)); 

119  Irhoacg  =ldcnl((ncord(I)+l):ncord(I+l)): 

120  lEl8eg  =  lEI((ncord(I)+l)mcord(l+l)): 

121  % 

122  [Me,Kc]  =  fcm_beamelGcngvseg,  Irhoscg,  lEIscg); 

123  % 

124  iiidl=2*I-l;  ind2=indl+3; 

125  jndl=(ngce/2)*(l-l)  +  l; 

126  iDd2=dndl +ngoe' 1; 

127  M(mdl:ind2,indl:md2)=M(indl:ind2.indl  :md2)+Mc; 

128  K(indl  :ind2,indl  ;ind2)=K(ind  1 :  ind2.iiid  1 :  ind2)+Kc; 

129  end 

130  % 

131  I  =  [];  indl  =  [];  ind2  =  [];  Kc  =  (];  Me  =  [);  n2  =  [];  ngee  =  [); 

132  % _ _ 

133  %  Section  (5) 

134  %  If  tlabel  is  set,  plot  the  M  &  K  matrices  for  visual  inspection. 

135  %  the  cunent  figure  window. 

136  %  USE;  ncord,  sraperk,  spatial,  sv. 

137  % . 

138  % 

139  ifnargin=s6 

140  clg,  colonnap(£lipud(hoO) 

141  if  issti<tlabcl):  %  Checks  to  see  if  tlabel  is  a  string. 

142  if  strcmp(tlabcl,'ilag');  %  Checks  to  see  if  tlabel  is  an  old 

143  tlabel  =  ['Beam'];  %  convcniion.  If  so,  a  default  is  applied. 

144  el  seif  stronpCdabcl  .‘tlabel'):  %  Checks  to  sec  if  tlabel  is  used, 

145  tlabel  =  ['Beam'];  %  If  so,  a  default  is  applied. 

146  else 

147  tlabel(l)  s:  uppei<tlabel(l));  %  lnqjoses  upper  case  on  first  letter. 

148  end 

149  else 

150  dabcl  =  ['Beam'];  %  Eiefaidt  is  applied  in  no  valid  tlabel  given. 

151  end 

152  8ubplol(321),  imag6(64*M/inax(inax(M)));  %  Normalize  M  to  0  to  64. 

153  title([' Image  of  ‘  tlabel '  Mass  Matrix']) 

154  subplolfl  1,2, 11),  imaged  :64) 

155  title('Color  Scale') 

156  alabel  =  [’Zcro‘;'High']; 

157  8et(gca,'XTick',[1.64]) 

158  setCgca.'XTickLabels' .alabel) 

159  sct(gca,‘VTick',[]) 

160  JtubpiIot(325),  iniage(64*K/max(max(K)))  %  Normalize  K  to  0  to  64. 

161  title([’lina^  of '  tlabel '  Stifihess  Matrix']) 

162  8ubplot(222),  spy(M) 

163  tillc(‘On/Ofr  Iniage  of  Nonzero  Mass  Matrix  Elements') 

164  8ubplot(224).  spy(K) 

165  titlc('On/Off  Image  of  Nonzero  Stif&icss  Matrix  Elements') 

166  crienlCtair) 

167  end 

168  % _ 

169  %  Con^leted: 

170  %  OUTPUT:  M,  K. 

171  % . 

172  % _ 


<fcm_mteipjn> 

1  function  [2phi,zddphi]  =  fem_inlcrp(lcngv) 

2  %  fcmjnterpjn 

3  %  [zphi,2dt^hil  =  fcm_interp(lcngv) 

4  %  o  This  fimetian  numerically  computes  the  intctpolalion  functions 

5  %  for  finite  element  formulation  of  a  Eulcr-Bcmoulli  Beam 

6  %  undergoing  transverse  vibration. 

7  %  o  This  file  uses: 

8  %  geom^check  jn  In  section  1 . 

9  %  o  This  version  docs  not  use  tlie  symbolic  toolbox . 

10  %  o  Input/Output  Variables: 

11  %  lengv  ->  Vector  of  input  clement  positions,  evenly  spaced. 

1 2  %  (Commonly  in  millimeters  from  1  ram  to  clement  length.) 

13  %  zphi,  zddphi  ->  The  numerical  evaluation  of  the  interpolation 

14  %  functions  and  their  derivatives  in  a  form  contpatiblc 

15  %  with  lengv. 

16  %  o  The  method  used  here  is  drawn  from:  Junkins, 

17  %  “Introduction  to  Dynamics  and  Control  of  Flexible 

18  %  Structures,”  equation  4.101. 

19  %  o  Created  31  August  -  06  October  1995  by  Eric  Kathe. 

20  %  Bci»et Labs,  Watervlict  Arsenal,  NY  12189-4050  <ckatho@pica.aimyjnil> 

21  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

22  %  _ _ 

23  %  Section  (1) 


24  %  Check  to  be  sure  lengv  is  well  posed. 

25  %USE:lcngv. 

26  %  POSSIBLY  ALTER:  lengv, 

27  % . 

28  % 

29  lengv  s;  geaD:]L.chBck(lengv); 

30  % _ 

31  %  Section  (2) 

32  %  Extract  two  values  from  lengv. 

33  %  DEFINE:  h,nl. 

34  %  USE:  lengv. 

35  % . 

36  % 

37  h  =:  inaxOengv); 

38  iil  =  length0engv); 

39  % _ 

40  %  Section  (3) 

41  %  Define  the  cubic  ipline  mtetpolation  fimetions  and  dteir  ^ad  spatial 

42  %  derivatives:  (Note:  the  .^’s  provide  for  element  by  element  conputatiaa 

43  %  for  X  (a  vector)  in  die  eval  command  of  aecticn  4.) 

44  %  (Note:  the  symbolic  toclbox  is  an  excellent  means  to  arrive  at  the 

45  %  inlerpolation  function  derivatives.  This  means  has  been  removed  to 

46  %  &cilitate  more  general  use.) 

47  %  DEFINE:  phil,phi2,pb3.phl4.ddphil.<k^hi2,<%hi3.(k^hi4. 

48  %  USE:  author  provided  symbolic  spline  functicxis. 

49  % . - 

50  % 

51  phil  =  1  -  3*x.A2/(b^2)  +  2*x.'^3/(h«3)’; 

52  phi2  =  ■x  -  2*h*x.'^2/(h^2)  +  h^x.^'S/fh^S)'; 

53  phB  =  3 *x.my^2)  -  2*x.A3/(hA3)'; 

54  phi4  =  ■-h*x.A2/(h^2)  +  h-^x-ASAh^S)'; 

55  % 

56  ddphil  ='-6^2+12*x/h^3'; 

57  d4)hi2  =  '-4/h+6*x/h*2'; 

58  ddphi3  =  W2rl2*x/h^3'; 

59  dr^  =  '.2/h+6*x/h^2; 

60  % _ _ _ 

61  %  Section  (4) 

62  %  Numerically  evaluate  the  interpolation  functions  and  derivatives  at  the 

63  %  resolution  of  the  ii^ut  spatial  vector,  lengv. 

64  %  DEFINE;  zphi,  zde^hi. 

65  %  USE:  lengv,  nl,  {dill ,  phi2,  phi3 ,  phi4,  dc^ihil ,  dd^]hi2,  ddphi3 ,  ddpihi4 . 

66  %  INDIRECTLY  USE;  b  (ic,  it's  embedded  in  the  eval  commands.) 

67  %  NULLIFY:  phil ,  phi2.  phi3 ,  phi4,  dt^hil .  ddphi2,  ddphiS,  ddphi4. 

68  % . 

69  % 

70  %  Initialize  matrices  to  hdd  numeric  evaluations  of  mterpdatian  functions: 

71  zphi  =  zcros(nl,4); 

72  z^phi  s  zcros(nl,4); 

73  % 

74  x=  lengv; 

75  % 

76  2phi(:,l)  =cval(phil): 

77  ^)hi(:,2)  =  cval(phi2); 

78  ^:,3)>eval(phi3); 

79  zphi(:.4)  =  cval(phi4); 

80  % 

81  zddphi(:,l)  =eval(ddphil); 

82  z<k^hi(:.2)=cval(dr^): 

83  z<k^hi(:,3)=eval(d4hi3); 

84  zd£^hi(:,4)  =  eval(ddpiii4); 

85  % 

86  phil=n;phi2  =  n;pbi3  =  I];phi4=I); 

87  ddphil=n:ddidii2  =  n;d<^hi3  =  [];ddphi4  =  n; 

88  x  =  I); 

89  % _ 

90  %  Conqjlcted: 

91  %  OUTPUT:  zphi,  zddphi. 

92  % . 

93  % _ 


1  function  [M,K,Cd]  -  fctn_lump(M,K>1extl>1extr,alpha.beU,constraintm,mtdm) 

2  %  fbmjump. 

3  %  [M,K,Cd]  ^  fcmu.luny(M.K,altdia,beta,cotmTaintm,mtdm); 

4  %  o  This  m-file  augments  the  finite  element  fotmulatian  of  the 

5  %  Mass  and  Stiffriess  matrices  with  external  lumped  parameter 

6  %  elements  and  assembles  the  proportional  damping  matrix. 

7  %  o  This  file  uses; 

8  %  femjttmpm„checkjn  in  Section  1 . 

9  %  o  Specific  variable  definitions  are: 

10  %  M,  K  (Input)  ->  n2xn2  mass  and  stiffiiess  matrices  where  ii2  »  number 

1 1  %  of  generalized  coordizuttes.  These  include  only  the  beam 

12  %  dynamics  with  no  constraints.  (If  mass  tuned  dan^rer  elements  arc 

13  %  lauded  n2  will  increase  by  die  number  of  rows  of  mtdm.) 

14  %  Mextl,  Mextr  ->2x2  sub  matrices  of  left  and  right  extreme  rigid  body 
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15  %  inertia,  (Warn  &  zeros  will  be  substituted  if  not  2x2.)  Ttesc 
\6  %  are  generally  entered  and  compuied  using  gcamf_* un. 

17  %  alpha,  beta  ->  sealer  proportionality  constants  for  the  Raylei^ 

18  %  damping  matrix,  Cd  =  alpha*M  +  bcta*K.  (Shames  &  Dyn,  pp.  646.) 

19  %  constraintm  ♦>  Translational  or  rotational  lun^d  parameter  censtraint 

20  %  q3ring  and  damping  matrix.  The  matrix  is  assembled  one  row  for 

21  %  each  node  effected.  Columnl  *>  generalized  coordinate  number, 

22  %  NOTE:  Must  be  in  ascending  order. 

23  %  Column2  ->  lun^d  spring  constant, 

24  %  Columns ->  lumped  dancing  ccjcffictent. 

25  %  mtdm'>  Mass  tuned  damper  matrix.  The  structure  is  the  same  as 

26  %  constraintm  with  an  additional  col umn4->lumpcdmtd  mass, 

27  %  M,  K,  Cd  (Output)  ->  Mass,  stiffness,  and  Rayleigh  dancing  matrices  of 

28  %  generalized  coordinates  that  include  the  constraint  a^ 

29  %  externally  coupled  dynamics.  (If  mass  tuned  damper  elements 

30  %  axe  included  n2  wQl  increase  by  the  number  of  rows  of  mtdm.) 

31  %  o  Orated  29  September  -  31  October  1995  by  Eric  Kathc. 

32  %  Benet  Labs,  Watervliet  Arsenal,  NY  12189'4050  <:eltathft@piqi_army-Tnil‘^ 

33  %  ^^AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

34  % _ _ _ 

35  %  Section  (1) 

36  %  Check  the  damping  coeflicienis  to  ensure  that  they  arc  not  negative. 

37  %  Also  cheek  Mextl,  Mextr,  conslraintm,  mtdm.  Warnings  indicate  reasons 

38  %  for  if  checks. 

39  %  USE:  alpha,  beto,  constraintm,  mtdm,  MexU,  Mcxir. 

40  %  Define:  n2,  nenst,  nmtd. 

41  %  POSSIBLY  ALTER:  alpha,  beta,  constraintm,  mtdm,  Mextl,  Mextr. 

42  % . 

43  % 

44  %  (A)  Check  alpha  &  beta. 

45  % 

46  if  alpha  <0 

47  alpha  5=  0; 

48  warning  s:  Negative  alpha  not  valid.  Alpha  set  to  zero.' 

49  end 

50  if  beta  <0 

51  beta  =  0; 

52  warning -Negative  beta  not  valid.  Beta  set  to  zero.’ 

53  end 

54  % 

55  %  (B)  Cheek  sizes  of  MexU  &  Mextr, 

56  % 

57  [mji]  =sizc(Mcxil): 

58  ifm~=2 

59  Mexd  =  zeros(2,2); 

60  warning  ss  MexU  must  be  2x2.  It  has  been  set  to  2x2  zeros.' 

61  elscifn--=2 

62  Mexd  =  zeros(2,2); 

63  warning  =  MexU  must  be  2xZ  It  has  been  set  to  2x2  zcrcjs.' 

64  end 

65  [mjnj  *  sizefMextr); 

66  ifm-^2 

67  Mextr  =  2eros(2,2); 

68  warning  =  Mextr  must  be  2xZ  It  has  been  set  to  zeros.' 

69  clseifn-^2 

70  Mextr  =  zcros(2,2); 

71  warning  =  'Mextr  must  be  2x2,  It  has  been  set  to  zeros.' 

72  end 

73  % 

74  %  ®  First  check  of  constraintm  for  proper  ir^ut  form. 

75  % 

76  constramim  =  fcm_lumpm_clKck(constraiiitm); 

77  % 

78  %  (D)  Second  check  of  conslraintm  for  comparison  against  M. 

79  %  Also  define  the  number  of  generalized  coordinates,  n2, 

80  %  and  the  number  of  external  constraints,  ncnsi. 

81  % 

82  n2  =  8Jze(M,l):%  The  number  of  general  bed  coordtiiatcs, 

83  if  sizc(coiistrainlm,l)  >n2 

84  conslraintm  =  constraiiUra(  1  :n2,:); 

85  warning  s:  [Too  many  constraints,  conslraintm  truncated  to 

86  'the  number  of  generalized  coordinates  (' ... 

87  mi2str<n2) ')'] 

88  end 

89  nenst  =  8izc(constraintm,l);%  Ihc  number  of  external  constraints. 

90  % 

91  %  (E)  Check  the  mass  tuned  damper  &  coii^are  against  M. 

92  %  Also  define  the  number  of  mtd's.  Note;  'Hiis  input  is 

93  %  optional.  Its  presence  is  clicked  via  nargin  (tlje  number 

94  %  of ir^ut  variables). 

95  % 

96  nmtd  =  0;%  Initialize  the  number  of  mass  tuned  dampers  to  zero. 

97  if  nargin  =  8 

98  mtdm  =  Hem  Juinpm_chcck(inidm) ; 

99  if  8izc(intdin,l)>n2 

100  mtdm  =mtdm(l:n2.:); 


101  warning  =  [Too  many  mass  tuned  danqjcrs,  mtdm  truncated  to 

102  *the  number  of  gencralb.ed  coordinates  (' ... 

103  int2str<n2)  J] 
lOi  end 

105  nmtd  =:size(midm,l); 

106  end 

107  % 

108  m  ss  [];  n  =  (];  warning  =  []; 

109  % _ _ _ 

110  %  Section  (2)  ~  — — 

111  %  Compute  the  darrqiing  matrix  and  add  McxU&r  toM. 

112  %  DEFINE:  Cd. 

113  %  USE:  aljdia,  beta,  M,  K,  n2,  NfexU,  Mextr. 

114  % . 

115  % 

116  M(l:2,l:2)*M(l:2,l:2)  +  MexU; 

117  M((n2.1):n2.(n2ri)3i2)  =  M((n2^1)m2,(nM)m2)  +  Mextr, 

118  % 

119  Cd  s:  alpha*M  +  beta'^K;  9b  Proportional  damping  matrix. 

120  % _ 

121  %  Section  (3) 

122  %  Add  in  the  external  constraint  stif&css  and  damping. 

123  %  POSSIBLY  MODIFY:  Cd,  K,  M. 

124  %  USE:  Cd,  constraimm,  M,  K,  nenst. 

125  % . 

126  % 

127  fori*:  Imcnst 

128  geind  »  caQ8traintm(i,l); 

129  K(gcmd,gcind)  *  K(gcind,gcind)  +  can8trainim(i,2); 

130  Cd(gcind,gcind)  *=  Cd(gcind,gcind)  +  constramtm(i3); 

131  end 

132  % 

133  geind  Si  [];U[); 

134  %  _ _ _ _ 

135  %  Section  (4) 

136  %  Add  in  the  extsmal  mass  tuned  dampers. 

137  %  POSSIBLY  MODIFY:  Cd.  K,  M. 

138  %  USE:  Cd.  M.  mtdm,  K,  nmtd. 

139  % . 

140  % 

141  ifnargin  =  8 

142  M  =  [M  zcro8(n2,nmtd);zcro3(nmtd,(n2+iimtd))]; 

143  K  =  [K  zcro8(n2,mntd);zeros(nmtd,(n2+nmtd))] ; 

144  Cd  g  [Cd  zeros(n2,nmtd);zeros(nintd,(n2-fnmtd))]; 

145  for  I  Si  Immld 

146  geind  =  mtdm(i,l);9b  This  is  the  generalized  coordinate  ,gc,tiiat 

147  %  the  mid  will  be  coaled  to. 

148  midind  =  n2  +  \\%  Mtdind  is  the  new  gc  of  the  mtd  itself. 

149  % 

150  M(mtdlnd,mtdind)  *  mtdm(i,4);%  Add  in  new  inertia. 

151  % 

152  K(mtdind,gcind) » -  m!dni(i,2);9b  Add  in  new  spring  ef&ct  in  four 

153  K(gcmd , mtdind)  ss  •  mtdm(i,2);%  locations. 

154  K(gcmd,gcind)  =  K(gcind,gcind)  +  ratdm(i,2); 

155  K(mtdiTid.mtdmd)  i=  mtdm(i,2); 

156  % 

157  Cd(mtdind,gcmd)  -  -  mtdni(i,3);%  Add  in  new  damping  effect  in  four 

158  Cd(gcind.mtdind)  =  >  mtdm(i,3);%  locations. 

159  Ctkgciodjjcind)  =  Cd(gcmd,gcmd)  +  mtdm(i,3); 

160  Cd(mtdind, mtdind)  =  intdm(i.3); 

161  end 

162  end 

163  % 

164  geind  Si  [];  I  =  [J;  mtdind  =  []; 

165  % _ 

166  %  Completed: 

167  9b  OUTPUT:  Cd,K.M. 

168  % . 

169  % _ _ 

<fi5m_lumpm_chcckjn> 

1  function  [lumpm]  =  fcmjurnpm^chcckflun^m) 

2  9b  £emJuiiym_chBckjn 

3  9b  [lumjxn]  *  fcm  Juirpin_check(luiiqjra) 

4  9b  o  This  m*file  checks  the  validity  of  the  lurz^d  parameter 

5  9b  o  Specific  input/ou^t  vaiiaUe  definitions  are: 

6  9b  lumpm  ->  Translational  or  rotational  lumped  parameter  matrix. 

7  %  The  matrix  is  assembled  one  row  for  each  generalized 

8  9b  coordinate  effected.  Typically: 

9  %  Columnl  >>  generalized  coordinate  number, 

10  9b  Column2  >>  tun^d  spring  constant, 

11  9b  CkilumnS  •>  lumped  dancing  coefficient, 

12  9b  o  Created  29  September  -  06  October  1995  by  Erie  Kathe. 

13  9b  Benet  Labs.  Watervliet  Arsenal,  NY  12189-4050  <ekadic@pica.armyjnil> 

14  %  AA''^'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/VAAyUUWl 

15  9b  _ 
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16  %  Section  (1) 

17  %  Qxek  first  coluinn  to  be  sure  that  tlie  generalized  coordinates  are 

18  %  referenced  by  positive  integers. 

19  %USE:lun^. 

20  %  POSSIBLY  ALTER;  lumpm. 

21  % . 

22  % 

23  iffumOuiiipin(;,l)- fioorflun:gjm(;,l)))>0 

24  luinpin(:,l)“floor<lun3pni(;,l)  +  H); 

25  waniing  s  ['Column  one  of  lumpm,  indicates  the  generalized  coordinate 

26  'or  spatial  index  number  and  must  be  integer.  It  has  been 

27  'reset  to; '  int2str(lumpm(:,l))j 

28  end 

29  ifzaii](luiiq3tn(:.l))<  L 

30  lumpin(:,l)  =  lumptn(:,l)  •  min(luinpin(:.l)}  + 1;%  Sets  first  index  to  1. 

31  warning  -  ['Column  one  of  lumpm,  indicates  the  generalized  coordinate '... 

32  'number  and  must  be  positive,  it  has  been  reset  to; 

33  int2sti<lumpiii(;,l))] 

34  end 

35  % 

36  warning  =  []; 

37  % _ 

38  %  Section  (2) 

39  9b  Insure  the  rows  of  lumpm  are  sorted  in  order  of  ascending  coordinate 

40  *  or  spatial  index  numbers.  Warn  if  they're  shufiled. 

41  %  USE:  lumpm. 

42  9b  POSSIBLY  ALTER:  lumpm. 

43  9b . . 

44  9b 

45  [y.md]  =  sortflun^rmf;,!)); 

46  if  sum(abs(y  -  lun^5m(:,l )))  ~=  0 

47  warning  =  "Lumpm  was  sorted  in  order  of  ascending  coordinates.' 

48  end 

49  lumpm  =  lumpm(ind, :); 

M  L  =  n:y  =  n; 

52  9b _ : _ 

53  9b  Section  (3) 

54  %  Check  remaining  columns  to  be  sure  that  the  lumped  parameters  are  positive. 

55  9b  USE:  lun^. 

56  9b  POSSIBLY  ALTER:  lumpm. 

57  9b . 

58  % 

59  for  I  =  2:sizc0umpm.2) 

60  if  min(lumpm(:,I))  <  0 

61  lumpn^:,!)  =  abs(lumpm(:,I)); 

62  warning  =  ['Column  ’  int2str(I)  ‘of  lumpm,  indicates  a  negative '... 

63  'lumped  parameter  tJiat  must  be  positive.  It  has  been 

64  ‘reset  to  it"s  absolute  values: '  num2strGumpro(:,l))] 

65  end 

66  end 

67  I  =  [];  warning  =  []; 

68  9b _ 

69  9b  Coa^lctcd: 

70  9b  OUn^TT:  lumpm 

71  9b . 

72  % _ 

<fcm_nieshjn> 

1  function  [ncord]  =  fem_ineslr(spatial4denJEUnbdeir,snlv,i]cI,tl8beI) 

2  9b  fcmjncsbm 

3  %  [ncord]  =  fem_mesh(spatialJcisn4EUnbdcn,snlv,nel,flag) 

4  %  o  This  m-fllc  generates  the  node  point  coordinate  vector  for  later 

5  %  finite  clement  formulation. 

6  %  o  This  file  uses: 

7  %  gcom_chcckjn 

8  9b  o  The  input  geometry  is  generally  eniercd  and  computed  using 

9  %  gcomf_*jn. 

10  %  o  Non  beam  masses  (such  as  the  breech)  are  also  included. 

11  %Q  Specific  input/output  variable  definitions  arc; 

12  %  spatial  *>  Axial  position  vector,  currently  limited  to  equally  spaced 

13  %  position  vectors  with  position  data  of  every  dx*n  point  such  that 

14  %  ns  l:lcngth( spatial)  and length(8patial)*dx equals max(spatial). 

15  %  Iden  >>  Beam  linear  density  vector  such  that  each  index  value 

16  %  corresponds  to  the  beam  position  of  the  respective  spatial  value 

17  %  at  the  same  index. 

18  %  1£I  '>  similar  to  Iden  except  for  liiear  El  cross-section  properties. 

19  9b  Inbden  ->  similar  to  Idcn,  except  this  records  Uic  inertia  of  non-beam 

20  9b  masses  that  are  attached  to  the  beam. 

21  %  snlv  ->  Imposed  node  location  vector  in  units  of  spatial.  Typically 

22  9b  consists  of  two  support  locations. 

23  9b  nel  ->  Desired  numter  of  finite  elements,  with  the  condition  that  s(I) 

24  9b  are  inqxssed  node  points.  The  rest  of  the  barrel  is  broken  up  in  a 

25  9b  manner  drat  attempts  to  evenly  space  the  elements  in  a  cross-sectional 

26  %  property  sense.  Minimum  value  of  nel  is  imposed  as  lcngth(snlv)+l . 

27  %  Uabel  ->  Enables  plotting  of  the  beam  meshing  metric,  imposed  nodes, 


28  9b  and  the  act  of  all  nodes  ^atial(ncord).  If  valid,  the  string  of 

29  9b  tiabel  is  incoipotaled  into  the  plot  to  desaibe  the  beam. 

30  9b  ncord ->  The  vector  of  indioes  such  that  8patial(ncard)  is  the  position 

31  %  of  each  pair  of  (nel+1)  generalized  coordinates.  (Also  known  as  nodes.) 

32  %  o  Qeated  13  September  1995  - 15  January  1996  by  Eric  Kathc. 

33  9b  BcnetLabSiWatervliet  Arsenal,  NY  12189-4050  <Bkadie@pica.axmyjzul> 

34  %  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

35 

36  9b _ _ 

37  9b  Section  (1) 

38  9b  A  &w  checks  to  be  sure  input  variables  are  the  right  size,  et  cetera. 

39  9b  This  section  uses  geom_chcclLm  to  validate  the  iiyut  geometry  vectors. 

40  %  Also  define  the  number  of  indices  of  spatial,  ns.  The  snlv  will  be 

41  9b  checked  later,  in  section  2. 

42  9b  DEFINE:  ns. 

43  9b  USE;  Iden,  lEI,  Inbden,  nel,  spatial,  author  provided  default  values. 

44  9b  POSSIBLY  ALTER:  Iden,  lEI,  Inbden,  nel.  spatial. 

45  9b . 

46  9b 

47  ns  s  lengtfaCspetial);  9b  number  of  indices  of  spatial. 

48  9b 

49  [spatial  ,lden,lEI3nbden]  >=  geom.checkCspratial^dBn^EIJiibden); 

50  9b 

51  neldeiault  =  14;9b  Author  provided  default  value  to  be  used  in  invalid 

52  9b  value  specified. 

53  % 

54  xx:Unel(:); 

55  if  length(nel)  >  1 

56  nel »  neldeiault; 

57  warning  s  ['Number  of  elements,  nel,  must  be  a  scaler.  ' ... 

58  Tt  has  been  reset  to '  int2str(nel) '.'] 

59  end 

60  ifnel<l 

61  nel  =  neldefault; 

62  warning  =  ['nel  must  not  be  neptive  or  zero.  ' ... 

63  'It  has  been  reset  to '  mt2str(nel) '.'] 

64  end 

65  if  (nel  -  ceil(nel))  <  0 

66  iKl  =  ccfl(ncl-l/2); 

67  warnings  ["nel  must  be  an  integer. 

68  'It  has  been  reset  to '  intZstifncl) '.'] 

69  end 

70  ifnel>(ns-l) 

71  nels(ns.l); 

72  wanting  =:  ['nel  too  large,  cannot  allocate  more  elements' ... 

73  "than  spatial  poinu.  It  is  now  » '  int2sti<nel) '.'] 

74  end 

75  % 

76  neldoiaults[];  warning  s[];xB[];y~[]; 

77  9b _ ... _ 

78  9b  Section  (2) 

79  9b  Validate  &  Sort  imposed  node  vector.  Also  determine  the  number 

80  9b  of  valid  imposed  nodes,  nin,  and  number  of  super  segments, 

81  9b  nscl,  between  validated  in^osed  nodes,  and  ends  of  beam. 

82  9b  DEFINE;  cin,  nsel,  sv. 

83  9b  USE:  ns,  snlv,  spatial. 

84  % . 

85  9b 

86  snlv  s8nlv(:); 

87  snlv  ss  8ort(8nlv); 

88  nin  =  length(8nlv);9b  #  of  in^xtsed  nodes.  (May  be  modified  later.) 

89  9b 

90  if8nlv(l)  <sniean(^iatial(l:2)) 

91  sd1v(1)  £=  0;9b  Zero  values  to  elimmated  later  this  section. 

92  wanting  -  Negative,  zero,  or  beginniDg  of  beam  inqtosed  node  igitored.’ 

93  elseif  snlv(l)  >=  mean(spatial((ns-l)3ts)) 

94  anlv(l)  s  0;9b  Zero  values  to  eliminated  later  this  section. 

95  wanting  =  'Imposed  node  beyond  or  at  end  of  beam  ignored.’ 

96  end 

97  for  I  =  23iin 

98  if  snlv(I)  <=  ntean(spatial(l  :2)) 

99  snlvfl)  B  0;%  Zero  values  to  eliminated  later  this  section. 

100  warning  s  ‘Neptive,  zero,  or  beg  inning  of  beam  in^osed  node  ignored.' 

101  elseif  snlv(I)  >b  n]can(spatial((ns-l  )3is)) 

102  snlv(I)  B  0;9b  Zero  vilues  to  eliminated  later  this  section. 

103  wanting  =  'imposed  node  beyond  or  at  end  of  beam  ipored.' 

104  cl8eifsDlv(I)  =  sitlv((M)) 

105  snlv(I)  B  0;%  Zero  values  to  eliminated  later  this  section. 

106  warning  b  'Repeated  imposed  node  ignored’ 

107  end 

108  end 

109  9b 

110  snlv  s  8ort(8nlv(find(snlv)));9b  Exclude  zero  elcntenis  of  snlv  &  resort. 

111  9b 

112  nin  B  lcngth(snlv);  9b  Rnal  #  of  valid  imposed  nodes. 

113  nsel  B  QjQ  +  1 ;  9b  #  of  super  segments  imposed  between  valid  nodes. 
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114  % 

115  8v  =  zcros(nm,l);%  Initialize  imposed  node  index  vector.  (WiU  change.) 

116  for  l  =  laiin 

117  [y,  fiv(I)]  =  inin(abs(spatia]  -  snlv(I)));  %  Identify  closest  index  to  node. 

118  end 

119  sv  =  U;  sv;  ns];  %  Fmal  node  vector  includes  &ec  ends  of  beam  as  nodes. 

120  % 

121  I -[];  warning  =  [];y  =  []; 

122  % _ 

123  %  Section  (3) 

124  %  Combine  beam  and  non-bcam  linear  densities: 

125  %  DEFINE:  Idcnt. 

126  %  USE:  Idcn,  bbden. 

127  % . 

128  % 

129  Idem  =  Idcn  +  Inbdcn;  %  Net  linear  density  including  beam  and  non-beam. 

130  % 

131  _ 

132  %  Section  (4) 

133  9Ej  Check  &  impose  a  valid  number  of  FEM  beam  elements  given  tl»  mimhrr 

134  %  of  valid  inqxjscd  nodes.  Also  determine  M  of  valid  FEM  nodes: 

135  %  DEFINE:  im. 

136  %USE:nsel.ncl. 

137  %  POSSIBLY  ALl'ER;ncI. 

138  % . 

139  % 

140  if  ncl  <  nsel;%  If  the  #  of  desired  clcnieiUs  is  less  than  the  #  of  super 

141  ncl  =  nscl;%  elements  in^sed,  match  tlie  #  desired  to  the  #  imposed. 

142  warning  =  [inl2sti<ncl) ... 

143  ‘  finite  elements  imposed  between  &  around  imposed  nodes.'] 

144  end 

145  nn  =ncl  +  1;  %  number  of  total  FEM  nodes  (after  mcslung). 

146  % 

147  warning  =  []; 

148  % _ _ _ _ 

149  %  Section  (5) 

150  %  First,  I  would  like  to  create  a  vector  of  the  cumulative  norm  of 

151  %  mass  over  stif&css.  The  qualitative  reasoning  is  dial  tbs  portions  of 

152  %  the  beam  w  iih  a  large  mass  to  stif&ess  ratio,  should  move  about  more 

153  %  and  thus  need  more  elements,  Tliis  metric  can  easily  be  changed. 

154  %  DEFINE:  smperk. 

155  %  USE:  Idem,  lEI,  ns. 

156  % . 

157  % 

158  smperk  =  cumsum(ldcnt71El);  %  Cumulative  sura  of  mass  per  k. 

159  _ 

160  %  Section  (6) 

161  %  Dctennine  the  number  of  fiee  elements  &  nonnalize  tie  metric. 

162  %  Since,  1  will  have  to  insure  that  each  major  segment  has  at  least 

163  %  one  finite  clement,  1  will  normalize  the  metric  by  the  number 

164  %  of  free  nodes  in  Section  8.  (Note:  if  no  free  nodes  (ncl=subcl), 

165  %  the  metric  is  set  to  zeros  in  Section  8.) 

166  %  DEFINE:  nclfr,  nfm,  nsmperk. 

167  %  USE:  nscl.nel,  smperk. 

168  % . 

169  % 

170  ncifr  =DeI  -  nsel;  %  This  is  the  number  of  truly  free  elements. 

171  % 

172  nsmperk  =  smperk/max(smpcrk);  %  Nonnalized  smperk  from  0+  to  i^Ifr 

173  % 

174  %  _ 

175  %  Section  (7) 

176  %  What  I  must  now  do  is  break-up  the  beam  into  the  nsel  super  segments: 

177  %  For  example,  if  nin  =  2  (supports)  one  super  segment  before  tlr  first 

178  %  support,  one  between  the  supports,  and  one  after  the  supporU.  Then 

179  %  determine  tie  number  of  free  elements  that  would  ideally  exist  in  each 

180  %  super  segment.  To  achieve  this  I  scale  the  metric  to  the  number 

181  %  of  free  nodes  and  then  ralcliei  it  down,  to  spread  out  the  free 

182  %  elements,  and  separately  add  in  the  imposed  minimum  of  one  finite 

183  %  element  to  each  super  segment. 

184  %  DEFINE:  n. 

185  %  USE:  nelfr,  nsel,  nsmperk,  sv. 

186  % . 

187  % 

188  nf  -  zcrcK(nscl,l):  %  Initialize  vector  of  integer  approximation  to  the 

189  %  number  of  free  elements  per  super  segment. 

190  % 

191  forlslmscl 

192  nf(I)  =  fioar((nclfr+l)*nsmpcrk(sv(I+l)))  -  sum(nf):  %  Round  scaled 

193  %  cumulative  metric  to  nearest  integer,  and 

194  %  ratchet  down  by  prcv  ious  #  of  free  elements 

195  %  allocated  to  previous  super  segments. 

196  end 

197  nf(nscl)  =  nf(nscl)  - 1;%  The  final  super  clement  picked-up  an  extra 

198  %  clement  since  tlic  normalization  is  based  on  nclfr+1  instead  of  irlfr. 

199  %  This  nonnalization  works  because  to  place  V  free  elements  evcijy 


200  %  you  cut  the  metric  into  bt+l'  pieces.  The  last  segment's  last  index 

201  %  just  reaches  'x+1',  so  the  final  'V  must  be  removed. 

202  % 

203  n  -  ones(8izc(nf))  +  nf;%  This  is  a  vector  of  the  number  of  nodes  per 

204  %  super  segmenL  (Before  Check.) 

205  nelsv  =  difS(sv);%  The  number  of  clemciits  per  super  segment 

206  if  max(nAielsv)  >1%  Check  if  more  elements  allotted  th«Ti  wifi  fit 

207  wanting  ss  [While-loop  entered  to  redistribute  free  elements  from 

208  'supper  clcmenls  that  arc  too  short  to  fit  them  all  to*,.. 

209  ‘thw  that  have  room.'] 

210  while  inax(n.Aiclsv)  >  1 

21 1  ly,  indthin]  ■  inax(nyDelsv);%  Find  index  of  s-clemcnt  w/  too  many. 

21 2  [y,  iadfiit]  =  minCnynclsv);  %  Find  index  of  S'clcmenl  w/  too  few. 

213  nCindthin) »  pfinddtin)  - 1;  %  Swap  one  elcmtmt  at » tinv». 

214  n(ind£ii)  =  n(mdfat)  +  1 ; 

215  end 

216  end 

217  nf  s  [};  y  *[];  indthin -[];  indiat  =  [j;  nebv  =  [];  warning  «[]; 

218  % _ 

219  %  Section  (8) 

220  9E)  What  I  must  now  do  is  peztitiao  the  siqter  segments,  based  cc  the 

221  %  total  number  of  finite  elements  per  segment.  To  achieve  this  I 

222  %  will  cGodua  an  exercise  similar  to  the  ooae  of  section  7  for  each 

223  %  su^  segment,  excepting  that  I  will  identify  the  index  directly. 

224  %  DEITNE:  ncord. 

225  9b  USE:  n,  nael,  un,  ns,  sn^rk,  sv. 

226  % . 

227  9b 

228  ncord  =  zeros(nn,l);  9b  Initialize  vector  of  all  node  points. 

229  9b 

230  forI  =  lmscl 

231  snqjcrki «  8mpcrk(sv(D:8v(I+l))  -  smperk(8Y(I));%sum  M/K  super  segtwiit  I. 

232  nsn^rki  —  smpeikiAnax(smperki);9b  Nonnalized  smperk  over  super  segment  1. 

233  nlndi  =  zeros(n(I),l);  %  Initi^ize  the  node  index  over  super  segn^nt  1. 

234  % 

235  forj  =  lm(I) 

236  [y,  nindi(j)]  smin(abs(n(I)*nsnqperki  -  0*1))):%  nindi  is  Ac  relative 

237  %  index  of  the  node  in 

238  %  the  super  segment 

239  end 

240  % 

241  if  mm(difi(nindi))  <  1  9b  Test  for  collocated  nodes. 

242  warning  ss  [’While-loop  entered  to  redistribute  collocated  clcnKnls  *... 

243  'fixKD  elements  that  are  too  short  to  fit  them  all  to '... 

244  "thcBe  that  have  room'] 

245  nindj(fiDd(difB(nindi)  sssO)) »[];%  Nullify  collocated  nodes. 

246  while  (n(l)  -  lcngth(nindi))  >  0 

247  [y,  indiat]  *  max(din(nmdi));9b  Index  of  nindi  w/  room  for  more. 

248  %  Now,  identify  node  between  nindi(mdlat)  and  indi(indfat+l}. 

249  nindi  =  [nindi;  round(  mean(nindi<  ( indfat  ( indfat+ 1 )])))] ; 

250  nindi  =  sort(nindi); 

251  end 

252  end 

253  9b 

254  ifl  =  l 

255  i3p  =  0;9b  Sct-i^  previous  index  so  that  super  scgtmnt  clcmenls 

256  9b  begin  at  thefr  first  index,  and  end  one  before  ttc  following 

257  %  elements  segment  Setting  np  to  0  will  facilitate 

258  9b  Ac  index  starting  at  1  for  the  first  super  segment 

259  else 

260  np  =  sum(n(  1  :(I- 1 ))) ;%  Remaining  previous  m Aces  sum  up  all 

261  9b  previous  indices. 

262  end 

263  9b 

264  ncord((iq>+l):(i5)+n(I))) »  nmA  +  sv(I)  - 1;%  RecaU.  svd)  u  tto  absolute 

265  9b  index  of  llic  start  of  the  big 

266  %  element 

267  9b  (Smee  the  lowest  index  nin  A  is  1, 1  must  be  subtracted.) 

268  end 

269  9b 

270  ncord(nn)  =  ns;9b  The  final  node  point  is  imposed  as  the  end  of  the 

271  if  ncord(nD-l)  =  ns;%  One  last  collocated  node  dipped 

272  ncQrd(nn-l)  =  [];9b  Nullify  collocated  node. 

273  [y,  indiat]  s  max(dl£f(nindi)):9b  Index  of  nindi  w/  room  fer  more. 

274  9b  Now,  identify  node  between  ninA(mdfat)  and  indi(indfat+l). 

275  9b  Remember  sv(I)  - 1  must  be  added. 

276  ncord  [ncord;  raund(  nKan(ninA([mAat  (mdfat+1)])) )  +  sv(I)  -  IJ; 

277  ncord  =  sort(ncord); 

278  end 

279 

280  ncord(nrO  =  m;9b  The  final  node  point  is  inq)osed  as  the  end  of  ti«  Ktatti. 

281  else 

282 

283  % 

284  I  =  [];  j  5=  [j;  smperki  =  [];  nsngxjrki  =  [];  nindi  =  [];  y  =  [];  np  =  [ j; 

285  indfat  s[]; 
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2S£  % _ 

287  %  fecjoon  (9)  DlS^^iUED  (Addressed  in  dcbcanuntjn) 

288  %  Wain  if  finite  element  length  is  becoming  short  relative  to  geometric 

289  %  icsoluticn. 

290  %USE;ncard, 

291  % . 

292  % 

293  %ifn)iii(difD;ncord))<50 

294  %  warning  =  [Tinitc  elcmcni  Icngtli  of  mt2sti(  mm(difI(ncord))) ... 

295  %  '  indices  is  small.  Consider  using  fewer  finite  elements.'... 

296  %  ‘  Also  be  sure  that  non-beam  masses  are  distributed  over 

297  %  'ncighbcffing  indices  in  the  Inbden  vector.' } 

298  %end 

299  9bnnw  1x1  +  1;%  number  of  total  FEM  nodes  (after  meshing). 

300  % 

301  %  warning  «[]: 

302  % _ _ _ 

303  %Scctiai(10) 

304  %  If  tlabel  is  set,  plot  the  metric  and  node  locations  versus  position  in 

305  %  the  current  figure  window. 

306  %  USE:  nargin,  ncord,  nel,  nsmperk,  spatial,  sv,  tlabel. 

307  % . 

308  % 

309  if  nargin  ~7 

310  clg 

311  ploi(ipatial,ncl*nsmpcrk,’k:') 

312  bdd  on 

313  stem(spaUal(ncord),ixI*nsmperk(ncord)) 

314  plot(spatial(sv),nel*nsii^rk(sv);k*') 

315  grid 

316  if  isstrftlabcl);  %  Checks  to  see  if  tlabel  is  a  string. 

317  if  8trcinp(tlabcl,'flag');  %  Checks  to  see  if  tlabel  is  an  old 

318  tlabel  =  ['Beam'];  %  convention.  If  so,  a  default  is  applied. 

319  elseifstrcn^  tlabel, ‘tlabel’);  %  Checks  to  sec  if  tlabel  is  used. 

320  tlabel  » ['&am'j:  %  If  so,  a  default  is  applied. 

321  else 

322  llabel(l)  =  uppcr(tlabel(l)):  %  Imposes  upper  case  on  first  letter. 

323  end 

324  else 

325  tlabel  =  ['Beam'];  %  Default  is  applied  in  no  valid  Uabel  given. 

326  end 

327  iitie([tlabcl '  Meshing  Metric  &  N ode  Locations  V  s  Pos  ition'] ) 

328  xlabcK'Position  Along  Bearn') 

329  ylabelCNoimalized  Metric  {o''s->nodcs,  '''“s->imposed  nodes,  :->iixtric)') 

330  %  Note: "  provides  for  using  '  wiihin  a  'string'. 

331  hold  off 

332  end 

333  %  _ _ _ 

334  %  Convicted: 

335  %  OUtKiT:  ncord. 


336  % 

337  % 


<£Bni_nodc_chcckm> 

1  function  [ncord, ^atial]  =  fcm_node_chcck(ncord, spatial) 

2  %  fcm_nodc_checkjn 

3  %  [ncord]  =  &an_nodc_chcck(ncord); 

4  %  o  This  m-file  checks  the  consistency  of  the  vector  of  node 

5  %  finite  element  node  coordinates,  and  spatial  vector. 

6  %  0  This  file  uses: 

7  %  geom_chcckjn  in  section  1 

8  %  o  Specific  input/output  variable  definitions  are: 

9  %  ncord  *>  The  vector  of  indices  such  that  fpatial(ncard)  is  the  position 

10  %  of  each  2*(nel+l)  generalized  coordinates.  (Also  thought  of  u  nodes.) 

11  %  spatial  ->  Axial  position  vector,  currently  limited  to  equally  spaced 

12  %  position  vectors  with  position  data  of  every  dx*n  point  such  that 

13  %  n  =  l:length(spaual)  and  lcngth(spaU2l)*dx  equals  max(5patial). 

14  %  o  Created  03  October  1995  by  Eric  Kathe. 

15  %  BcixtLabs.Watervliet  Arsenal,  NY  12189-4050  <ckathc(a)pica.armymil> 

j  g  ^  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

17  % _ _ _ - 

18  %  Section  (1) 

19  %  A  &w  clxcks  to  be  sure  input  variables  are  the  right  size,  et  cetera. 

20  %  This  section  uses  gcom_clieckJn  to  validate  the  input  geometry  vectors. 

21  %  Also  define  the  number  of  elements  of  spatial,  ns. 

22  %  DEFINE:  ns. 


23  %  USE:  spatial. 

24  %  POSSIBLY  ALTER:  spatial. 

25  % . 

26  % 

27  ns  =  length(spatial);  %  number  of  elemenls  of  spatial. 

28  % 

29  [spatial]  =  gcom_chcck(spatial); 

30  % _ _ _ 

31  %  Section  (2) 

32  %  Validate  &  sort  node  vector,  ncord. 


33  %  USE:  ncord,  ns. 

34  %  POSSIBLY  ALTER:  ncord. 

35  % . 

36  % 

37  ncord  =  ncord(:);%  Impose  column  structure. 

38  ncord  s  goct(ncord); 

39  nn  =  length(ncord);%  #  of  nodes.  (May  be  modified  later.) 

40  % 

41  if  suiii(ceil(ncord)-ncord)  >  0 

42  ncord  =  ceil(ncard  •  Vi); 

43  warning  =:  [’Non  integer  values  of  ncord  encountered.  ' ... 

44  ‘values  of  ncord  have  been  rounded  to  the  ixarest  integer.'] 

45  end 

46  ifncord(l)-=l 

47  ifncoid(l)<l 

48  ncard(l)»l; 

49  warning  -  ['Negative  or  zero  node  of  ncord  ignored.  ' ... 

50  'First  node  placed  at  index  1 .  (The  beginning  of  the  beam)'] 

51  else 

52  ncord  ncord]; 

53  warning  =  CFirst  node  of  ncord  must  be  at  beginning  of  beam.  ' ... 

54  'First  node  at  index  I  added  to  ncord.'] 

55  nnssnn  +  l;%#  of  nodes  increased  to  compensate  for  new  node. 

56  %  May  still  be  modified  later. 

57  end 

58  end 

59  fQrI*2:im 

60  ifncord(I)<2 

61  zicard(I)  s  0; 

62  warning  =  ['Negative,  zero,  or  additional  beginning  of  beam  node ' ... 

63  'of  ncord  ignored.'] 

64  elaeifncord(I)  >m 

65  ncord(I) »  0; 

66  warning  =  'Node  beyond  beam  in  ncord  ignored.' 

67  6lseifncord(I)  =^ncord((I-l)) 

68  ncord(I)  =  0; 

69  warning  =  'Repeated  node  of  ncord  ignored.’ 

70  end 

71  end 

72  % 

73  ncord  =  sort(ncoTd(find(ncord)));%  Exclude  zero  elements  of  ncord  &  resort. 

74  % 

75  nn  5=  lcngth(ncord);%  #  of  nodes.  (May  be  modified  one  more  time.) 

76  % 

77  ifncord(nn)<ns 

78  ncord  s  [ncord;  ns]; 

79  warning  ^  ['Last  node  of  ncord  must  be  at  end  of  beam.  ' ... 

80  'End  of  beam  index  node  added  to  ncord.'] 

81  nn  =  nn  +  1;%  Last  possible  modification  to  #  of  nodes. 

82  end 

83  % 

84  I  =  {);  nn  =  [];  wanting  =  []; 

S85  % _ _ _ _ _ 

86  %  Canq>leted: 

87  %  OUTPUT:  ncord,  spatial. 

88  % . 

89  % _ _ _ 


<:fieq2strjn> 

1  ftinction  t  =  fieq2sti<x,  prec) 

2  %NUM {FREQi2STR  Number  to  string  conversion  {For  liixar  fiequcncies ) , 

3  %  T«NUM{PRBQ}2STR(X)  converts  the  scalar  number  X  into  a  string 

4  %  representatioDT  with  about  4  digits  and  an  exponent  if 

5  %  required.  This  ii  useful  for  labeling  plots  with  the 

6  %  TULB,  XLABBL,  YLABEL,  and  TEXT  commands.  An  rational 

7  %  argument  can  be  supplied  for  indicating  an  alternate  precision. 

8  %  T  s!  NUM{FREQ}2STR(XPREC)  converts  the  scalar  [linear  frequency) 

9  %  number  X  into  a  string 

10  %  representation  (using  fixed  representaticxi}  with  a  maximum 

11  %  precision  {number  of  digits  to  the  right  of  the  decimal  point) 

12  %  specified  by  KIEC. 

13  % 

14  %  {Modified&amMATLAB'8num2strbyEricKathB,  31  Oct95.} 

15  %  Sec  also  INT2S’m,SPRINTF,FFRINTF. 

16 

17  ifissti(x) 

18  l  =  x; 

19  else 

20  if  (nargin  1) 

21  num_fortnat  =  '%.4g' ; 

22  else 

23  num^forraat  =  ('% nuin28tr(prec)  'f ] ;%  (Mod  1  of  2;  *g’  to  *f  •) 

24  end 

25 

26  t  =  sprintf(num_fonnat,  real(x)); 

27  if  imag(x)  >  0 
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28  t  as  [t '+'  5prinU(nuni_foniiat,  iniag(x))  TJ; 

29  clseifiniag(x)<0 

30  1  as  [t  8printfi;num_fonnat,  •iimg(x)) 

31  end 

32  t  as  [t '  (Mod  2  of  2:  append  '  Hz'.) 

33  end 

<geam_chcck4n> 

1  function  [spatial, pvl  ,pv2,pv3]  =  geom_chcck(spatial,pv  1  .pv2,pv3) 

2  %  gcain_chcckjn 

3  %  (spatial, pvl  ,pv2,pv3 j  =  gcom_check(spatial,pvl  ,pv2,pv3) 

4  %  0  This  ni'filc  checks  the  geometric  vector  inputs  for 

5  %  later  foiiie  element  foimulation. 

6  %  o  The  spatial  vector  must  always  be  included.  Up  to  three 

7  %  additional  vectors  that  arc  supposed  to  correspond  one-to 

8  %  one  with  spatial  and  have  no  negative  elements  can  also  be 

9  %  validated. 

10  %  o  Tlte  input  geometry  vectors  arc  generally  entered  and 

11  %  confuted  using  •_geQmfjn. 

12  %  o  Specific  inpu^output  variable  definitions  arc: 

13  %  spatial  ->  Axial  position  vector,  cunendy  limited  to  equally  spaced 

14  %  position  vectors  with  position  data  of  every  dx*n  pomt  such  that 

15  %  n  » l:length(spatial)  and  lengthf spatial) *dx  equals  max(^atial). 

16  %  pvl,pv2,pv3  ->  Vectors  with  no  negative  elements  that  correspond  one 

17  %  to  one  with  the  spatial  vector.  Common  example  for  finite 

18  %  element  formulation  include  linear  density  and  El  cross-sectional 

19  %  property  vectors  versus  spatial. 

20  %  o  Created  20  September  -  05  October  1 995  by  Eric  Kathc. 

21  %  Bcnel  Labs.  Watervliet  Arsenal,  NY  12189-4050  <ekathc@pica.aimymil> 

22  9b  ^'^'''“''^'“^^''AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAy\AAA^/VAAAAAAAAA 

23  %  _ 

24  9b  Section  (1)  ~  ~~  — — 

25  %  Check  spatial.  Warning  labels  provide  the  reason  for  each  if  statement. 

26  %  DEFINE:  eflag,  ns. 

27  9b  USE;  spatial. 

28  %  POSSIBLY  ALTER:  spatial. 

29  % . 

30  % 

31  spatial  spatial(:);  %  Impose  column  structure. 

32  ns  s  Icngthf  spatial);  %  Number  of  elements  of  spatial. 

33  eilag  =  0;  %  This  will  form  a  cumulative  error  count. 

34  % 

35  dspal  =  difUspatial): 

36  deltax  =  mca^difUspatial)); 

37  if  minfspatial)  <  dcltax*(l  - 10^(-2)) 

38  9b  Note:  must  allow  for  machine  round  off.  Thus  Uic  10^(-2)  factor. 

39  spatial  =  spatial  -  min(  spatial )  + deliax; 

40  warning  =  ['Spatial  must  not  be  negative  nor  start  at  zero.',.. 

41  ‘  It  has  bMn  offset  by  the  negative  minimum '... 

42  'and  it“5  incremaii  to  make  ii’'s  firai  value  start  at 

43  *it"s  incrcmenial  value.  (Commonly  I  mm,)’] 

44  eflag  =  eflag  +  1 ; 

45  end 

46  ifabs(spatial(l)-delux)>deltax*10*(-2) 

47  spatial  =  spatial  -  spatial(l)  +  dcltax; 

48  warning  =  ['Spatial  must  start  at  it‘'s  first  increnssnlal  value.'... 

49  'It  must  not  start  at  zero  or  some  large  positive  value.' 

50  '  A  DC  offset  has  been  applied  to  try  to  coned  it.'] 

51  eflag  =  eflag -f  1; 

52  end 

53  9b 

54  if  abs(max(dspat)  -  rain(dspat))  >  deltax*10^(-2) 

55  %  Note:  must  allow  for  machine  round  off.  Thus  Uic  l(y'('2)  facta  in 

56  %  lieu  of  zero,  (1%  is  also  a  reasonable  variatioi.) 

57  spatial  St  max(spaiial)*(l:ns)‘/ns; 

58  warning  =  'Spatial  must  be  evenly  spaced.  Even  spacing  has  been  inroosed,' 

59  eflag  =  eflag  +  1; 

60  end 

61  9b 

62  dspat  =  [];  deliax  tt  [];  wanting  =  []; 

63 

64  % _ 

65  9b  Section  (2)  ~~  ~  ~ 

66  %  Check  pvl ,  pv2,  pv3.  Warning  labels  provide  the  reason  for  each  if 

67  9b  statement. 

68  9bUSE;cflag,  nargin,  pvl,pv2,  pv3. 

69  %  POSSIBLY  ALTER:  eflag,  pvl,  pv2,  pv3, 

70  9b . 

71  % 

72  fori  =  l:(nargin - 1) 

73  cval(['pv  =  pV  int2str(l) ';'})  %  Tliis  assigns  pvi  to  pv. 

74  9b 

75  pv  =pv(;);  9b  Inqxjse  column  structure. 

76  if  length(pv)  ns 

77  dumv  s  2cros(ns,l ); 

78  dumv(l:lcnglh(pv))  =  pv; 


79  pv  as  dumvflms); 

80  waming  —  ['Mumatched  pv'  int2str(I) '  size  truncated  *... 

SI  'or  padded  to  iqtatial  size.'] 

82  eflag  3=  eflag  +  1; 

83  end 

_ 84  if  minCpv)  <  0;  pv  ts  abs(pv); 

■i85  warning  » ['pv' int2str<I)  *  must  not  be  XKgative.  It  has'... 

86  'been  react  to  it"i  absdute  values.'] 

87  eflag  »  eflag  1; 

88  end 

89  evalfCpv’  int2*tr(I) '  as  pv;'])  9o  This  assigns  pv  to  pvi. 

90  end 

91  9b 

92  dumv  =  [];  I  -  (];  pv  =  (];  warning  =  []; 

93  9b _ 

94  9bSccticm(3) 

95  9b  Warn  of  Problems  encountered : 

96  %  USE:  eflag. 

97  9b . 

98  9b 

99  jfeflag>0 

100  warning  =  ['WARNING: 'int28ti<cflag)' serious erruKs) in'... 

101  'geometiy  vectors  encountered.  Further  results  likely  to  be  in  ciror.'] 

102  end 

103  9b 

104  warning  *[]; 

105  % _ 

106  %  Completed:  ~~ 

IM  \  pvl.  pv2.  pv3.  (If  nargin  l,2,3,«fe4  respectively.) 

-  109  9b  _ _ 

<gcam_nbscgjn> 

1  functjanlmdl,mdrjhibdcnscg]  =geom_nbscg(posl,posr,mass,5patial) 

2  9b  gcotn_nfa»cg 

3  9b  [Inbdcnscg]  =  geom_nbscg(po8l,posr,mas3,spatial) 

4  9b  o  This  m-file  coiverts  informaticD  of  a  non  beam  mass,  and  converts 

5  %  it  to  the  Inbdenseg  vector  segment. 

6  9b  o  This  file  uses: 

7  %  geom.chcckju 

8  %  o  Specific  variable  Asfinitifww  are: 

9  %  posl,  posT  ->  The  left  and  right  indices  of  the  desired  segment  in 

10  %  the  units  of  spatial.  (Exangilc:  meters.) 

11  9b  mass  ->  The  total  ncoi  beam  mass  to  be  evenly  distributed  between 

12  %  posl  &  post  in  desired  units.  (Exanqpic:  Kg.) 

13  9b  spatial  ->  Axial  position  vector,  currently  limited  to  equally  spaced 

14  %  position  vectors  with  position  data  of  every  dx*n  point  such  that 

15  9b  n  » l:length( spatial)  and  Iength(spatial)*dx  equals  max(spatial). 

16  9b  Inbdenseg ->  A  scaler  of  uniform  linear  density  of  the  mass  spread 

17  9b  out  between  the  indices  of  posl  &  posr  in  spatial. 

18  %  o  Created  22  -  27  September  1995  by  Eric  Kathc. 

19  9b  Bcnct  Labs,  Watervliet  Arsenal.  NY  12189-4050  <ekaihc<®picajamyjnil> 

21  9b _ _ _ _ 

22  %  Section  (1) 

23  9b  Check  and  validate  ir^t  parameters.  Warnings  indicate  Ak  reason  for 

24  9b  the  checks. 

25  9b  This  section  uses  geam_chcckjn 

26  9b  USE:  posl, posr, mass,spatial 

27  9b  POSSIBLY  ALTER;  posl, posr .mass^patial 

28  9b . 

29  9b 

30  9b 

31  [spatial]  =  gconucheckfspatial);  9b  Performs  a  rerics  of  ctecks  to 

32  9b  insure  a  valid  spatial  vector. 

33  if  posl  >  posr 

34  poas  «  posl;9b  Temporary  swap  value. 

35  posl  ss  posr; 

36  posr  =  poss; 

37  waroing  =  ['Right  position  should  be  larger  than  left 

38  110361  to  ('  num2sti(posI) ','  tnun2str(posr) ').'] 

39  end 

40  9b 

41  ifpasl<0 

42  posUO; 

43  waming  =  ['Negative  positions  not  valid.  ’... 

44  ‘React  posl  to  C  num2str(posl ) ').'] 

45  end 

46  if  posr  <0 

47  posr  =  0; 

48  waming  =  ['Negative  positions  not  valid.  '... 

49  llcsct  posr  to  (’  niun2sti(posr) ').'] 

50  errd 

51  if  posl  >  max(spatial) 

52  =max(spatial); 

53  warning  =  ['Positions  greater  than  beam  lengtlr  are  not  valid.  '... 
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SP  XjSfc’tpcBii  to  -C'  num2sti<posl)  ‘).'j 

55  end 

56  if  posr  >  max(spaUal) 

57  po8r>:iiiaJ((BpaliaI); 

58  warning  » [‘Positions  greater  than  beam  length  are  not  valid. 

59  ■Reset  posr  to  ('  num2str(posr) 

60  end 

61  % 

62  ifmass<0 

63  mass^O; 

64  warning  =  ['Negative  mass  not  valid. 

65  'Reset  to '  num2str(mass)  '.‘J 

66  end 

67  % 

68  poss  =  [1;  warning  =  []; 

69  %__ _ _ _ 

70  %  Section  (2) 

71  %  Pinrf  the  indicea  of  dexiied  locations  in  spatial,  and  evaluate  the 

72  %  length  of  the  legment  over  wliich  the  mass  is  to  be  applied. 

73  %  DEFINE:  indl,  indr,  aeglen. 

74  %  USE:  poal,  posr,  spatial. 

75  * . . 

76  % 

77  [y,  indl]  *  min(ab8(spatial  -  posl));  %  Find  the  left  index. 

78  [y,  indr)  =  niin(abs(8patial  -  posr));  %  Find  the  right  index. 

79  % 

80  deltax  =  mcan(diff(spatial));%  m  (I'lie  delta  x  of  spatial.) 

81  % 

82  %  Determine  total  segment  IcngUi  in  spatial.  This  length  may 

83  %  vary  slightly  due  to  finding  the  closest  index  matdics  (inefl  &  indr) 

84  %  above.  (Note  that  the  deltax  is  required  to  add  in  the  length  of 

85  %  spalial(indl)  as  in  one  foot  equals  12"  - 1"  +  1".) 

86  % 

87  seglcn  =  spatial(indr)  -  spatialCindl)  +  deltax; 

88  % 

89  deltax  =  [];y  =  []; 

90  % _ — - 

91  %  Section  (3) 

92  %  Evaluate  the  linear  density. 

93  %  DEFINE:  Inbdenseg. 

94  %  USE:  mass,  seglen. 

95  % . 

96  % 

97  Inbdenseg  =  mass/scglen;  %  Detcnriinc  linear  density  =  rn/L. 

98  % 

99  %  _ _ _ 

100  %  Canq>letcd: 

101  %  OUTTVT:  indl,  indr,  Inbdenseg. 

102  % . 

103  % _ _ _ _ _ 

<geam_scgjn> 

1  function  [tseg]  =  geom_seg(indi,indr,li,tr) 

2  %  geom_scg 

3  %  [tseg]  5=  gcc3in_scg(indl,indr,ll,U-) 

4  %o  This  m*filc  converts  raw  information  ofa  beam  segment,  read  off 

5  %  of  a  drawing,  to  the  geometry  veaor  segment.  It  determines 

6  %  from  the  number  of  input  arguments  if  the  segment  is 

7  %  unifonn  or  consists  of  a  linear  taper. 

8  %  o  Specific  variable  definitions  are: 

9  %  indl,  indr  •>  The  left  and  right  indices  of  the  desired  segment 

10  %  tl  ,tr->  The  width  or  thickness  of  tiic  segment  at  the  left  and  right 

11  %  indices  respectively.  If  no  tr  given,  a  uniform  segment 

12  %  is  assumed. 

13  %  tseg  •>  A  vector  of  length  1 :( indr-indl+l )  that  represents  the  tapered 

14  %  or  uniform  thickness  of  the  segment. 

15  %  o  Ocaled  22  September  1995  by  Eric  Kathc. 

16  %  BcMtLabs.WatervUet  Arsenal,  NY  12189-4050  <ckathe@pica.armyjnil> 

Y!  %  AAAAAAAAAAAAAAAAAAAAAAXA/tAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
18  %  _ 

19  %  Section  (1) 

20  %  Cl^ck  and  validate  input  parameters.  Warnings  indicate  the  reason  for 

21  %  the  checks. 

22  %  DEFINE:  nargflag. 

23  %  USE:  indl,  indr,nargin,tl,tr. 

24  %  POSSIBLY  ALTER:  indl.  indr,  tl.ir. 

25  % . 

26  % 

27  nargflag  =  nargin;%  This  is  the  number  of  input  arguments. 

28  % 

29  indv  s  [indl  indr]'; 

30  if  sum(ccil(mdv)  -  indv)  ~=  0 

31  indv  =  oeilCindv  -  V4); 

32  waming  -  ['Indices  must  be  integer.  ' ... 

33  'Reset  to  ('  int2sti<indv(  1 )) ','  int2slr(indv(2)) 

34  end 


35  ifindv(l)>indv(2) 

36  indv  =  sortfindv); 

37  waming  =  ['right  index  should  be  larger  than  left.  ' ... 

38  Reset  to  f  int2«r(indv(l )) int2str(indv(2)) ').'] 

39  end 

40  if  minfindv)  <  1 

41  indv  =  indv  -  minfindv)  + 1 ; 

42  warning  =  ['Negative  and  zero  indices  not  valid.  '... 

43  Reset  to  ('  mt2«tr(indv(l)) ','  mt2str(indv(2))  ■).'] 

44  end 

45  indl  s  mdv(l); 

46  indr  =  indv(2); 

47  % 

48  iftl<0 

49  ti*0; 

50  warnings  ['Negative  tl  not  valid  '... 

51  Reset  to '  int2sti<tl) '.'] 

52  end 

53  if  nargflag  n  4;9b  Indicates  that  tr  defined. 

54  iftr<0 

55  tr-0; 

56  warning*  ['Negative  ti  not  valid  '... 

57  React  to '  int2*ti<tr) '.'] 

58  end 

59  if  lx  tl;%  If  both  thicknesses  are  equal,  compute  as  non-tapered. 

60  nargflag  =  3; 

61  end 

62  end 

63  % 

64  indv  =  [];  waming  =  []; 

65  _ _ 

66  %  Section  (2) 

67  %  If  the  section  is  not  tapered,  evaluate  tseg  directly. 

68  %  Else,  compute  as  tapered. 

69  %  DEFINE:  tseg. 

70  %  USE:  indl,  indr,  nargflag,  tlptr. 

71  % . 

72  % 

73  if  nargflag  *=  3 

74  tseg  « tl'*oneB(((mdr  -  indl)+l),l); 

75  else 

76  tap  c  (0:(indr  -  indl))'; 

77  ntap  =  tapAnax(tap);  %  Linear  vector  from  zero  to  one. 

78  tseg  =  tl*ones(size(ntBp))  -  (tl-tr)*ntap;%  Tl  minus  the  linear 

79  %  taper  difference  (tl-tr)'*tap  to  tr. 

80  end 

81  % 

82  ntap  =  [];  tap  =  []; 

83  %_ _ — _ _ _ 

84  %  Completed: 

85  %  OUTPUT:  tseg. 

86  % . 

87  % _ _ 

<geoinfJCM29 1  jn> 

1  function  [spatial,  Idcn,  lEI,  Inbdcn,  Mcxtl,  Mextr,  gm]  = ... 

2  geoinf_XM291(tlabcl) 

3  %  gcamf_XM291jn 

4  %  [spatial,  Iden,  lEI,  Inbden,  Mcxtl,  Mextr,  gm]  =  gcomf  JXM291(Uabcl); 

5  %  o  This  m-filo  generates  the  linear  density  and  BI  for  the  XM291 

6  %  gun  system. 

7  %o  The  geometric  mformation  contained  was  derived  &omXM291  Drawings 

8  %  #  WTV-F37060  sheets  1-4  of  4. 

9  %  o  This  file  uses: 

10  %  gpom^gjn 

11  %  gccmjxbscgjn 

12  %  gcom_chcckjn 

13  %  o  Specific  variable  defjnitioDs  are: 

14  %  tlabcl  ->  Enables  plotting  of  the  beam  geometry. 

15  %  If  valid  the  string  of  tlabcl  is  incoiporafed  into  the  plot  to 

16  %  describe  the  beam. 

17  %  spatial  ->  Axial  position  vector,  currently  limited  to  equally  spaced 

18  %  position  vectors  with  position  data  of  every  dx  *n  point  such  that 

19  %  n  =  l:lcngth(spatial)  and  lcngth(5patial)*dx  equals  max(spatial). 

20  %  Iden  ->  Beam  linear  density  vector  such  that  each  index  value 

21  %  corresponds  to  the  beam  position  of  the  respective  ^tial 

22  %  value  at  the  same  index. 

23  %  lEI->  Similar  to  Iden  except  for  linear  El  cross-scction  properties. 

24  %  Inbden  ->  Similar  to  Iden,  except  this  records  the  izrertia  of  non-beam 

25  %  masses  that  are  attached  to  the  beam. 

26  %  Mcxtl,  Mextr  ->  2x2  sub  matrices  of  left  and  right  extreme  rigid  body 

27  %  inertia.  This  special  treatment  of  a  non-beam  mass  is 

28  %  required  when  the  location  is  beyond  the  barrel.  (It 

29  %  will  later  be  axlded  to  the  M  &  K  matrices  along  with 

30  %  die  constraint  forces.) 

31  %  gm  ->  Similar  to  Iden  except  the  columns  of  this  matrix  record  the 
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32  %  izmer  and  outer  radii  respectively. 

33  %  o  Qeated  30  August  -  28  November  1995  by  Eric  Kathe. 

34  %  BcnctLabs.Watcrvlict  Arsenal,  NY  12189-4050  <ckatfae@pica.aiinyjnil> 

35  %  ^^^^aa^'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

36  ^ _ 

37  %  Section  <1) 

38  %  The  approach  here  will  be  to  record  the  outer  radii  of  the  barrel  in 

39  %  millimetera  per  each  millimeter.  When  a  taper  is  encountered, 

40  %  a  vector  decreracni  method  will  be  used.  Iiidl  &  indr  define  the  extreme 

41  %  indices  of  the  segment  For  exanyle,  19  to  75  indicates  radii  beginning 

42  %  at  axial  position  0.01 9ra  and  ending  at  0.075m.  Dianictcni  are  divided  by 

43  %  two. 

44  %  (Note:  The  semantics  used  in  the  descriptions  are  not  necessarily  those 

45  %  usedby  the  gun  designers.  Refer  to  the  drawings  baaed  on  intfcx 

46  %  location  to  avoid  confus  km.) 

47  %  This  section  uses  gcora_seg.m. 

48  %  DEFINE:  rout. 

49  %  USE:  author  provided  data  as  listed. 

50  % . 

51  % 

52  rout  K  zeros(6750,i );  %  Initialize  rout  vector. 

53  % 

54  %  A)  Flat  prior  to  rear  threads.  { sheet  2,  section  N-N  &  c4 } : 

55  mdl  =  l; 

56  indr  =  37; 

57  rL*  291.84/2; 

58  roul(indl:mdr)  s=  geom_scg(iiidl,indr,rL): 

59  % 

60  %  B)  Rear  threads,  {sheet  2,  section  N-N,  D  between  Major  &  Minor  &  b2}  • 

61  indl=:38: 

62  indr  =  211; 

63  rL  =  298.24/2; 

64  rout(  indl;  indr)  =  gccan_seg(indl ,  indr ,rL) ; 

65  % 

66  %  C)  Hat  following  treads,  (sljcet  2,  b2) : 

67  indl  =  212; 

68  indr  =  224; 

69  rL  =  291.84/2; 

70  rout^indl : indr)  =  geom_scg( indl, indr, rL); 

71  % 

72  %  D)  Taper  prior  to  tnumion.  { slicct  1 ,  e8-7 } : 

73  indl  =  225; 

74  indr  =  1100; 

75  rL  =  305/2; 

76  rR  =  304.8/2; 

77  rout( indl: indr)  =gcom_seg(mdl.indr.rL,rR); 

78  % 

79  %  E)  Rat  at  Uunnion.  (sheet  1 .  section  EE  &  c6} : 

80  indl  =  1101; 

81  indr  =  1323; 

82  rL  =  30t.8A 

83  rout(indl:mdr)  =  gcom_seg(indI,indr,rL); 

84  % 

85  %  F)  Leafier  trunnion  flat.  (slKxt  l,e7}: 

86  indl  =  1324; 

87  indr  =1332; 

88  rL  =  304,8/2; 

89  rR  =  287/2; 

90  rout<indl:indr)  =  gcom_scg(indl,indr,rL,rR); 

91  % 

92  %  G)  Rat  forward  of  trunnion,  {sl>cci  1,  c6  d6) : 

93  indl  =  1333; 

94  indr  =  1428; 

95  rL  =  287/2; 

96  roulf indl :  indr)  =  gcam_scg(mdJ,  in  dr/L) ; 

97  % 

98  %  H)  Taper  forward  of  trunnion,  {sheet  1,  e6}: 

99  indl  =  1429; 

100  indr  =1603; 

101  iL  =  287/2; 

102  rR  =  260/2; 

103  rout(mdl:indr)  =  gcom_seg(indl,indr,rL,rR); 

104  % 

105  %  I)  The  next  Flat,  {sheet  1,  c6  d6}: 

106  indl  =  1604; 

107  indr  =  1661; 

108  rL  =  260/2; 

109  rout(indl:indr)  =  geom_seg(indl,indr,rL): 

no  % 

111  %J)  Second  lip  after  tnumion  flat,  {slicct  1,  c7  detail  A- A): 

112  indl  =  1662; 

113  indr  =  1663; 

114  iL  =  260/2; 

115  rR  =  258/2; 

116  rout(indl:mdr)  =  geom_8eg(mdl,mdr,rL,rR); 

117  % 


118  %  K)  Hrst  long  taper,  {sheet  1,  c6-5) : 

119  indl  =  1664; 

120  indr  =  3041; 

121  rL  =  258/2; 

_  122  rR«  21160/2; 

123  rout(indl:indr) «  gBornjeg(indl,iiidr,iL,rR); 

124  % 

125  %  L)  Rat  prior  to  boro  cvacuator.  (sheet  1,  c5} : 

126  mdl  =  3042; 

127  indr  =  3102; 

128  rL  =  22C/2; 

129  rout(indl;indr)  •  gpomjog(iDdl,indr,rL); 

130  % 

131  %  M)  First  taper  of  bore  cvacuator.  (sheet  1 ,  c5} ; 

132  indl  =  3103; 

133  indr  =  3112; 

134  tL=22(V2; 

135  rR  =  210/2; 

136  routCindl:  indr)  =  gBomjcg( indl  ,indr,rL,rR); 

137  % 

138  %  N)  Second  flat  prior  to  bore  cvacuator.  (aheet  1,  e5}; 

139  indl* 3113; 

140  indr  =  3165; 

141  rL  =  215/2; 

142  rout(indI :  indr)  «  gBomjegCindl,  indr ,rL); 

143  % 

144  %  O)  Thread  flat  prior  to  bore  cvacuator.  {sl»ct  1,  c5) : 

145  indl  =  3166; 

146  indr  =  3200: 

147  rL  =  207.80/2; 

148  rout(indl:mdr)  =  gpoin_8eg(mdl,indr,rL); 

149  % 

150  %  P)  Main  taper  of  bore  cvacuator.  {sheet  1 ,  c5*4} : 

151  indl  =3201; 

152  indr  =  3902; 

153  rL  =  207.80/2; 

154  rR  =  184/2; 

155  roul<indl:indr)  =  gcDm_8Cg(indl,mdr,rL,rR); 

156  % 

157  %  Q)  First  flat  after  bore  cvacuator.  {sheet  1 ,  e4 ) ; 

158  indl  =  3903; 

159  indr  *3954; 

160  rL  =  190/2; 

161  rout(indl;indr)  =  gpam_scg(mdl,mdr,rL); 

162  % 

163  %  R)  Second  fiat  after  bore  cvacuator.  {sheet  1 ,  c4) : 

164  indl  =  3955; 

165  indr  =  4183; 

166  rL  =  183/2; 

167  rout(indl:indr)  =  gcoin^scg(indl,indr,rL); 

168  % 

169  %  S)  Third  flat  after  bore  cvacuator.  {sheet  1 ,  o4) : 

170  indl  =  4184; 

171  indr  =  4234; 

172  rL  =  177.40/2; 

173  rout(mdl;indr)  =  geom_scg(mdl,mdr/L); 

174  % 

175  %  T)  Second  long  tiqjcr.  (sheet  1,  e4-2} : 

176  indl  =4235; 

177  indr  =  6403; 

178  rL  =  17740/2; 

179  rR  =  156.60/2; 

180  rout(mdI:indr)  =  geom_8cg(indl,indr,rL4^R); 

181  % 

182  9b  U)  Taper  prior  to  muzzle,  (sheet  1,  el}: 

183  indl  =  6404; 

184  indr  =  6428; 

185  rL  =  156.60/2; 

186  rR  =  169.8/2; 

187  rout(indl:indr)  =  geom_scg(indl,mdr,rL,rR); 

188  % 

189  %  V)  First  flat  of  muzzle,  {shxt  4,  f7-6} : 

190  indl  =  6429; 

191  indr  =  6527; 

192  rL=  169.8/2; 

193  rout(indl:indr)  =  gcom„8cg(indl,indr,rL); 

194  9b 

195  9b  W)  First  groove  of  muzzle.  {8hcct4,  f7-6}: 

196  indl  =  6528; 

197  indr  =  6533; 

198  rL  =  159/2; 

199  rout(indl:indr)  =  8Bom_scg(indl,indr,rL); 

200  9b 

201  %  X)  Taper  between  grooves  of  muzzle.  { sheet  1 ,  el } : 

202  indl  =  6534; 

203  indr  =  6573; 
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•m  rL 

205 

206  roul(indl:indr)  =  gcom_8cg(indl,mdr,rL,rR); 

207  % 

208  9{j  Y)  Second  flat  of  muzzle.  {shcct4,  f6-5}: 

209  indl:=6574; 

210  iridr=:6644; 

211  rLs  164/2; 

212  iout(mdliindr)  =  gcom_scg(indJ,indr,rL): 

213 

214  %  Z)  Second  groove  of  muzzle,  {sheet  4.  f5) : 

215  iiidl  =  6645; 

216  mdr  =  6650; 

217  rL«  157^/2; 

218  rout(mdl :  indr)  sgeom_8eg(indl,  indr ^L); 

219  % 

220  %  AA)  Threads  of  muzzle,  {sheet  4,  f5]: 

221  mdl>66Sl; 

222  iiidr*6ff73; 

223  rL  =  63037*(254)/2;%  English  thread:  (in)(mm/in) 

224  rout( mdl; indr }  =  geom_Bcg(indl, indr ^L); 

225  % 

226  %  AB)  The  final  flat,  (sheet  4,  e5'4} : 

227  indl  =  6674; 

228  iDdr  =  e750; 

229  rL  =  157.5/2; 

230  route indl:mdr)s=gcora_8Cg(mdl, indr ,rL); 

231  % 

232  indl  =  [];  indr  =  [];  rL  =  [];  rR  =  []; 

233  % _ 

234  %  Section  (2) 

235  %  The  approach  here  wQl  be  to  record  the  inner  diameters  of  the  barrel  in 

236  %  analogy  with  section  I . 

237  %  (Note;  The  semantics  used  in  the  descriptions  are  not  necessarily  those 

238  %  used  by  the  gun  designers.  Refer  to  the  drawings  based  on  index 

239  %  location  to  avoid  confusion.) 

240  %  DEFINE:  rin. 

241  %  USE:  rout,  author  faovided  data  as  listed. 

242  % . 

243  % 

244  rin  =  zeros(si2e(rout));  %  Initialize  rin  vector. 

245  % 

246  %  A)  Chandcr  taper,  {sheet  3,  f6) : 

247  indl  =  l: 

248  indrs30; 

249  rL  =  159.0951/2: 

250  rR  =  158.36/2; 

251  rin(indl:indr)  =gcom_seg(in(ll,iiidr,rL,rR); 

252  % 

253  %  B)  Gas  check  seal,  {slioct  3,  f6}^ 

254  mdl=31: 

255  indr  s;  61; 

256  rL  =  158.36/2; 

257  rR  =  157.6/2; 

258  rin(indl:indr)  =  geom_seg(indl,indr,rL,rR); 

259  % 

260  %  Q  Rat  of  chamber,  {sheet  3,  r5-6): 

261  indl«62; 

262  indr  =  487; 

263  rL  « 157.6/2; 

264  rin(mdl:indr)  =  gcom^scg(indl,indr^L); 

265  % 

266  %  D)  First  taper  of  chamhrage  cone,  (slicet  3,  f4): 

267  indl  =488; 

268  indr  =  515; 

269  rL  =  157.6/2; 

270  rR=  140.14/2; 

271  rin(indi:indr)  =  geQm_8eg(indl,indr,rL.rR); 

272  % 

273  %  E)  Second  taper  of  chambrage  cone,  {sheet  3,  f4 } : 

274  indl  =516; 

275  indr  =  555; 

276  rL=  140.14/2; 

277  rR=  121 .84/2; 

278  rin( indl: indr)  =  geam_»cg(indl,indr^L,rR); 

279  % 

280  %  F)  Taper  of  forcing  cone,  {shed  3,  f4 ) 

281  indl  =556; 

282  indr  =  602; 

283  rL  =  121 .84/2; 

284  rR  =  120.85/2; 

285  rin{mdl:indr)  =  gpam_scg(mdl,mdr^L/R): 

286  % 

287  % OTlr barrel,  {sheets, f4-3): 

288  indl  =603; 

289  indr  =  6750; 


290  iL  =  120.85/2; 

291  rin(indl:indr)  =  geanuaeg(mdl,indr/L); 

292  % 

293  indl  =  (];  indr  =  (1;  rL  *  (];  rR  =  {]; 

294  % _ _ 

295  %  Section  (3) 

296  %  Now  to  convert  units  to  meters,  and  create  a  coirespooding  position 

297  %  vector  in  meters  with  indices  corresponding  to  the  rin  &  rout  vectors. 

298  %  DEFINE:  ns,  ^tial. 

299  %  USE:  rin,  rout 

300  %  Alter  lin,  rout. 

301  % . 

302  % 

303  rout  =  rou^ 000;%  mnt^mnt/m) 

304  rin  =  rin/1000;%  mmAmznAn) 

305  ns  =  lezigth(rout);%  Number  of  geometric  vector  indices. 

306  spatial  =  (l3is)y(1000);%  (mmy(mmta) 

307  % _ 

308  %Sectkm(4) 

309  %  Now  compute  the  cron-iecUonal  properties  of  the  beam. 

310  %  Also  con^Mite  the  total  mass  to  validate  the  geometry. 

311  %  DEFINE:  deltax,ldeii,tEI,  mass,  masseng. 

312  %  USE:  rin,  rout,  spatial,  author  provided  data  as  listed. 

313  %  . . . . 

314  % 

315  deltax  =  inoan(diffl{spatial));%  m  (The  disk  fliickness.) 

316  density  *489*(0,4536)/<0,028317);%  lbm/ft3<KgAbro)/(m3/ft3) 

317  %  MARK'S  9tb.  table  page  6.44,  Carbon  steel  (040%  Q. 

318  %  Gun  steel  4337m  dose  to  4340  w/  seme  extra  Vanadium 

319  %  added  for  machinabiUty.  (4340  ->  .38  -  43  %  Q 

320  Idcn  =  density*pi*(rout.^2  •  rin-'^2);%  (Kg/m^3)(m^2) 

321  % 

322  mass  =  fum(lden)*deltax;  %  (Kg/m)(m) 

323  mas3cng  =  mass*(lA)4536);%  Kg(l/(Kg/lbm)) 

324  % 

325  E  =  (29 J*10^*6894.8;  %  lb^in2*((N/m2)Alb^in2)) 

326  %  Private  communication  with  Dr.  Ron  Cast,  AMATA'AR-CCB-DE. 

327  %  (Shinglcy  &  Mitchell,  4th.  tabic  A-18  E's  for  steel  fiom 

328  %  29*30  Mpsi.)  (Very  heat  treat  dependent.) 

329  % 

330  lEI  =  E*(rout.M  -  rin.M)*pi/4; 

331  % 

332  density  =  [];£  =  []; 

333  %, _ 

334  %Scctbn(5) 

335  %  Add  in  the  external  rigid  mass.  This  mass  is  treated  differently  than 

336  %  sinq^le  non-beam  mass  (to  be  computed  in  section  6)  due  to  the 

337  %  location  of  its  center  of  gravity  beyond  the  end  of  the  beam.  Tberefom, 

338  %  it  will  be  treated  as  a  lumped  inertia  and  directly  coupled  to  the 

339  %  generalized  coordinates  of  die  first  &  or  last  node  at  a  later  time.  It 

340  %  is  important  to  note  that  this  formulation  i^ovides  for  the  inclusion  of 

341  %  rigid  body  rotational  inertia  and  could  be  used  within  the  beam  for  nan- 

342  %  beam  masses  where  the  linear  density  approximation  is  poor. 

343  %  For  the  case  of  a  left  external  mass  (Note:  r  would  be  negative): 

344  %  x(cxt)=x(l)  +  r*tteta(l)->dx(ext)  =  dx(l)  +  r*dtheta(l) 

345  %  ddx(ext)  =  ddx(l)  +  r*ddtteta(l),  ddas;ta(ext)  =  ddtbetad) 

346  %  F(l)  »  mbr*ddx(ext).  M(l)  =  (mextW  +  Jbr)*ddtheta(ext) 

347  %  [mil  ml2; m21  in22]'»Iddx(l)  ddiheta(l)]'  =  [F(l) M(l)]' 

348  % 

349  %  DEFINE:  Idenextl,  Idenextr,  MexU,  Mextr,  spexd,  spoxtr,  massext. 

350  %  USE:  deltax,  author  provided  data  as  listed. 

351  % . 

352  % 

353  massext  =  0; 

354  % 

355  %  A)  Left  external  mass:  The  Biecch,  mb  =  1 300#,  located  1 0.9"  RFB  -> 

356  %  -0.6  RFT,  (RFB  &  RFT  arc  the  rear  face  of  breech  and  tube  respectively.) 

357  %  For  the  breech,  quick  measurements  indicate  the  breach  is  about  21* 

358  %  axial,  and  15"  high,  for  a  J  of  m(l/12)bh(b^2+iy'2)/(bh). 

359  %  x(cxt)=x(l)  +  r*theta(l)->dx(cxl)  =  dx(l)  +  r*dlheta(l) 

360  %  ddx(cxt)  =  ddx(l)  +  r*ddthcta(l),  ddth5ia(cxt)  =  ddthcta(l) 

361  %  F(l)  =  mbr*ddx(ext),  M(l)  =  (mexl*iA2  +  Jbr)*ddtbeta(cxt) 

362  %  [mil ml2: m21  m22]*Iddx(l) ddthcta(l)]'  =  [F(l) M(l)]’ 

363  raext  =  1300*(04536);%  lhm*(Kg/lbm) 

364  rext  =  -0.6'^0,0254);% 

365  bcxt  =  21 *(0.0254);%  xn*(m/in) 

366  text  =  15*(0.0254);%  m  Wm) 

367  Jcxt  =  mcxt*(l/12)*(bcxt^2+hcxtA2); 

368  % 

369  hfcxd  =  [mext  mcxt*rext;  mext*rext  (Jext  +  mext*rext^2)]; 

370  % 

371  rextl  =  (rext  -  bext/2);%  m*(cinAm)*(m/cm) 

372  icxtl  =  fioor(rcxtI/dcltax  +  V4):%  Round  to  nearest  increment  of  deltax. 

373  rextr  =  (icxl  +  bcxt/2);%  m*(cinym)*(m/cm) 

374  iextr  =  flooi<rextr/deltax  + V4); 

375  spexd  =deltBX*(iextl:iextr)’; 
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376  Idenextl  =:incxt/(niax(spexU)  -  mii;(spcxll))*anes(sizc(spcxU)); 

377  imssext  =  massext  +  mexl; 

378  % 

379  %  B)  Right  externa]  mass;  None. 

380  Mextr  =  zcros(2.2); 

381  spcxtr  =  [l: 

382  ldencxlr  =  []: 

383  massext  =  masscxl  +  0; 

384  % 

385  mcxl  =  [];  rext  =  [];  bext  =  [];  licxt  =  (];  icxtl  =  (];  icxlr  =  []; 

386  Jext  =  (];  rcxtl  =  ();  rcxlr  =  (]; 

387  % _ _ 

388  %  Section  (6) 

389  %  Add  in  non-beam  masses.  (Since  this  data  is  not  often  directly  on 

390  %  drawings,  the  nearest  indices  of  spatial  are  found  from  positions 

391  %  expressed  in  general  units  of  measure,  rather  than  indices  directly.) 

392  %  Also  compute  the  total  non- beam  mass  to  validate  the  geometry. 

393  %  "niis  section  uses  geora_nbseg.m. 

394  %  DEFINE:  Inbdcn,  raassnb. 

395  %  USE:  dcitax,  ns,  spatial,  auUtor  provided  data  as  listed. 

396  % . 

397  % 

398  Inbdcn  =  zeros(ns,l);  %  Initialize  Inbdcn  vector. 

399  % 

400  % 

401  %  A)  The  cradle,  mcr  =  1000«,  46.26  RFB  ->  34.76  RFT, 

402  %  (RFB  &  RFr  are  ilte  rear  face  of  breech  and  tube  respectively.) 

403  %  Since  this  mass  is  dearly  disn  ibuled,  I’ll  place  over  a  40*'  span 

404  %  centered  at  the  center  of  gravity.  (Measured  distribution  40".) 

405  % 

406  massnb  =  1000*(0.4536):%  lbm*(Kg/lbm) 

407  poscg  =  34.76*(0.0254);%  in*(m/in)  Position  of  center  of  gravity. 

408  span  =  40*(0.0254);%  in*(mAin)  Span  of  distribution. 

409  %  Note:  poscg  +-  span/2  must  lay  within  the  beam.  If  lixiy  don't, 

410  %  geom_nbseg  will  apply  the  closest  valid  value  and  warn  of  change. 

411  % 

412  posl  =  poscg  -  span/2;%  Left  most  position  of  distribution. 

413  posr  =  poscg  spaii/2;%  Riglit  most  position  of  distribution. 

414  % 

415  %  Identify  indices  of  lennb  and  effective  linear  density  of  nmb. 

416  [indl.indrjnbdenscg]  =  geomjibscg(posl,posrmassnb,spatial): 

417  % 

418  %  The  non-beam  mass  is  now  added  into  the  Inbdcn  vector: 

419  lnbden(indl:indr)  -lnbden(indl;indr)  +  Inbdcnseg; 

420  % 

421  %  B)  The  recoil  brakes  (all  4):  mrb  =  528#  @  37"RFB  ->  25.5“RFr. 

422  %  Since  this  mass  is  dearly  distributed,  I’ll  place  over  a  30“ 

423  %  span  centered  at  ilie  CG.  (measured  distribution  ~  30".) 

424  % 

425  massnb  =  528 *(0.4536);%  lbm*(Kg/lhm) 

426  poscg  =  25.5 *(0.0254);%  in*(mrin) 

427  span  =  30*(0,0254);%  in*(m/m) 

428  posl  =  poscg  -  span/2;%  Left  most  position  of  distribution. 

429  posr  =  poscg  +  span/2;%  Right  most  position  of  distribution, 

430  [iiidl,indr4nbdcnscg]  =  gcQm_iibscg(posI,posr,massnb, spatial); 

431  lnbd5n(mdl:mdr)  =lnbdcn(mdl:indr)  +  InMenscg; 

432  % 

433  %  C)  The  recuperators:  mrc  =  80#  @  36.5"RFB  ->  25.0“RFT. 

434  %  Since  this  mass  is  dearly  distributed,  I'll  place  over  a  20“ 

435  %  span  centered  at  tlic  CG. 

436  % 

437  raassnb=80*(0.4536);%lbra*(Kg/lbnO 

438  poscg  =  25.0*(0.0254);%  m*(m/m) 

439  span  =  2£)*(0.0254);%in*(m/m) 

440  posl  =  poscg  -  span/2;%  Left  most  position  of  distribution. 

441  posr  =  poscg  +  span/2;%  Riglii  most  position  of  distribution. 

442  [indl,indr,lnbdcns6g]  =geoin_nbseg(posl,posrmassijb, spatial); 

443  lnbdcn(indl:indr)  =  lnbdcn(indl:indr)  +  Inbdenscg; 

444  % 

445  %  D)  The  hydraulic  manifold:  mlun  =  70#  @  31  "RFB  ->  19.5"RFT. 

446  %  Since  this  mass  is  dearly  distributed.  I'll  place  over  a  15" 

447  %  span  cemercd  at  the  CG. 

448  % 

449  massnb  =  70*(0.4536);%  lbm*(Kg/lbiii) 

450  poscg  =  19.5*(0.0254);%  m*(m/in) 

451  span  =  15  *(0.0254);%  in*(m/in) 

452  posl  =  poscg  -  span/2;%  Left  most  position  of  distribution. 

453  posr  =  poscg  +  span/2;%  Riglii  most  position  of  distribauon. 

454  [indl,indrdnbdcnscg]  =  g6am_nbscg(posl,posr,massiib, spatial); 

455  lnbdcn(indl:indr)  =  lnbdcn(indl:indr)  +  Inbdenscg; 

456  % 

457  %  E)  The  rails  &  yoke:  mry  =  200#  @  50.4"RFB  ->  38.9"RFr. 

458  %  Since  this  mass  is  dearly  distributed.  I'll  place  over  a  10" 

459  %  span  centered  at  tiie  CG, 

460  % 

461  massnb  =  200*(0,4536);%  lbm*(Kg/lbm) 


462  poscg  =  38.9*(0.0254);%  in*(m^m) 

463  span  =  10*(0.0254);%  in*(m^) 

464  posl  =  poscg  -  ^ai^;%  Left  most  position  of  distribution. 

465  posr  =  poscg  +  ipan/2;%  Right  most  position  of  distribution. 

466  {indl,indrdnbdenscg]  =  gcom_nbseg(posl,posrjnassnb, spatial); 

467  lnbden(indl:indr)  =lnbdBn(indl:indr)  +  Inbdcnseg; 

468  % 

469  %  F)  DISAfiUBD:  (Not  mounted  for  testing.) 

470  %  The  bore  cvacuator,  67#  @  3.200ra  to  3.902m 

471  %  Since  this  mass  is  dearly  distributed,  Ill  place  over  tie  span 

472  %  3.2(X)m  to  3.902m  as  indicated  on  sheet  1  of  4  of  the  XM291  drawings 
_473  % 

474  %  massnb  =  67*(0.4536);%  lbm*(Kg/lbm) 

475  %  posl  =  3.200;%  Left  most  position  of  distribution. 

476  %  posr  =  3,90^%  Right  most  position  of  distribution. 

477  %  [indl,indrJUibdenseg]  =  gcamjibscg(posl,posr,inassnb,spatial); 

478  %  lnbden(indl:indr)  =  lnbden(indl:indr)  +  Inbdenseg; 

479  % 

480  %  G)  DISABLED:  (Not  mounted  for  testing.) 

481  %  The  muzzle  reference  mount,  15#  @  264.6"  RFT.  About  1 .5"  wide. 

482  % 

4«3  %  massnb  =  15*<0.4536);%lbm*(Kg/lbm) 

484  %  poscg  =  264 .6*(0.0254) ;%  in*(m/m) 

485  %  ^an  =  1.5*(0.0254);%  in*(m/m) 

486  %  posl  =  poscg  -  ipaiv'2;%  Left  most  position  of  distribution. 

487  %  posr  =  poscg  +  8pan/2;%  Right  most  position  of  distribution. 

488  %  [indl,ii]dr4nbdcnscg]  =  geam_nbscg(posl,posrjtiassnb, spatial); 

489  %  lnbdcn(indl:indr)  =  lnbdcn(indl:iijdr)  +  Inbdenscg' 

490  % 

491  %  H)  No  additional  non-beam  masses.  Sum  up  total  mass. 

492  % 

493  massnb  =  sum(lnbdcn)*dcltax; 

494  % 

495  % 

496  indl  =  [};  indr  =  [];  Inbdenscg  =  [];  poscg  =  [];  posl  =  []; 

497  posr  =  [];  span  =  I); 

498  % _ 

499  %  Section  (7) 

500  %  Define  the  geometry  matrix,  (Used  by  later  files  for  plotting.) 

501  %  DEFINE:  gm. 

502  %  USE:  rin,  rout 

503  % . 

504  % 

505  gm  =  [rinrout]; 

506  % _ _ _ 

507  %  Action  (8)  ” 

508  %  If  flag  is  set,  plot  the  property  vcaors  and  geometric  matrix  for 

509  %  visual  inspection  in  the  current  figure  window.  (Note:  in  order  to 

510  %  preserve  the  visual  inspection,  the  non-beam  masses  are  plotted 

511  %  within  the  confines  of  the  geometry  matrix.  Otherwise  the  visual 

512  %  validation  of  linear  beam  density  could  be  obscured.) 

513  %  USE:  ddtsx,  lEI,  gm,  Iden,  Inbden,  Idenextl,  Idcncxtr,  ns,  spatial, 

514  %  spexd,spcxtr,  tlabcl. 

515  % . 

516  % 

517  ifnargin  =  l 

518  dg 

519  % 

520  %  A)  Detennizx;  if  tlabcl  is  a  valid  title  string  or  apply  defeulu 

521  % 

522  if  isstz(Uabel);  %  Checks  to  see  if  tlabel  is  a  string. 

523  tlabel(l)  =  uppci(tlabcl(l));  %  Imposes  uppercase  on  first  letter, 

524  else 

525  dabcl  =  ['XM291  Radial'] ;%  Default  is  used  if  no  valid  tlabcl  given, 

526  end 

527  % 

528  %  B)  Combine  external  and  non  beam  masses  into  ai»  vector: 

529  % 

530  nbxlden  =  lnbden;%  Initialize  the  combined  extemal  and  non  beam 

531  %  mass  vector  that  is  within  the  confines  of  the  beam  geometry. 

532  % 

533  lobindx  =  find(sp6xtl  <  dcltax);%  Left  of  beam  index. 

534  lobspat  =  spcxtiGobindx);%  Left  of  beam  spatial  vector. 

535  loblden  =  ldeDextlGobmdx);%  Left  of  beam  linear  density. 

536  coindx  =  fmd(8pexU  >=  deltax);%  Index  of  Idenextl  within  beam. 

537  spatindx  =  (1  dength(coindx))';%  Indices  of  Idenextl  in  terms  of 

538  %  ^tial,  within  beam. 

539  %  Now  combine  the  left  external  and  non  beam  linear  density  that 

540  %  coexists  within  the  confines  of  the  beam  geometry. 

541  nhxldcn(spatmdx)  =  nbxldcn(spatindx)  +  Idcncxtl(coindx)* 

542  % 

543  robindx  =  find(spextr  >  inax(spatial));%  Right  of  beam  index. 

544  robspat  =  spextr(robindx),*%  Right  of  beam  spatial  vector. 

545  roblden  =  ldenBxtr(robindx);%  Right  of  beam  linear  density. 

546  coindx  =  find(spcxtr  <=  max(8patial));%  hodex  of  Idenextr  within  beam. 

547  spatindx  =  ((ns-lcngth(coindx)):ns)';%  Indices  of  Idcncxtr  in  terms  of 
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S45'  %  wid'^  htriJEL 

%.  wjnjiji**;  ttiu  ligniex^'a'-n/^i  ArKW-sm  bcarp  luicii  ih’nsiHflhsl 

550  fi;  coexia’is  wMIrt  aJjc  coufracA'  a£  die  bea/n  gcwamtli-y, 

551  nbxldcn(spatindj;\  =  nbxldci)(spati:idx)  +  IdcncxtrCcoindx); 

552  % 

553  9b  C)  Determine  plotting  scale  to  force  external  and  non  beam  densities 

554  %  to  be  fdotted  widiin  the  confines  of  the  beam  geometry. 

555  % 

556  nbi  =  fmd(nbxldcn):%  Find  external  &  non  beam  density  index  locus. 

557  psf  s=  (0.50)*mm(  min(gm(nbi.:)')'.Aibxlden(nbi) );%  Plot  scale  factor. 

558  % 

559  %  D)  Combine  external  and  non  beam  mass  totals: 

560  % 

561  nhmass  »  *umGnbden)*deliax  +  massext;  %  (Kg/m)(m)+(Kg)  Nbcam&cxt  mass. 

562  nbmasseng  =  nbmass*(l/0.4536):  %  (Kg)(l/(Kg/lbin)) 

563  % 

564  9b  E)  Plot  results: 

565  % 

566  aubpioi(311),  pIot(8patial,gm,'k');  hold  on 

567  plot(^tiaI,<gin,V}; 

56S  stem(8patial(Dbi),p8f^ibxlden(nbi)); 

569  stieni(spatial(nbi),~psf*nbxlclen(nbi)); 

570  iteni(lobspat,ps^iobldcn);  8tem(lobspat,'psf*loblden); 

571  stBm(rob8pat.psf*roblden);  stem(robspat,*psf*robldeii); 

572  hold  off 

573  istring  =  [tlabcl '  Profile  &  Non  beam  Masses  Versus  Length  '... 

574  'in  Meters,  ffotal  Non  beam  Mass  of  ... 

575  iium2str<nbmass)  ’  Kg,  or '  nurri2str(nbmasserig)  ’  Ibm)’]; 

576  title(tstring) 

577  ylabcK'm') 

578  axis([max(spatial)*[-0.1  1.1],  inax(roui)*|-1.2 1.2]]);  grid; 

579  % 

580  %  The  following  axis  manipulation  scales  die  subplot  for  better  printing. 

581  pos  =  gctfgca, 'position');  %  This  is  in  normalized  coordinates 

582  pos(4)=pos(4)*.85;  %  Slirink  Ue  height  by  a  faaor  of  .85 

583  pos(2)=pos(2)  +  pos(4)*.15:%  Raise  die  subplot  by  tlic  saved  height. 

584  sctCgca, 'position', pos); 

585  % 

586  subplot(312),plot(spatiaidden/k'); 

587  istring  =  ['Linear  Density  from  Profile,  (Total  Mass  of  Beam ' ... 

588  nura2str(mass) '  Kg.  or  ‘  num2sir(masscng)  ‘  Ibm)']; 

589  litle(istring) 

590  ylabcl('Kg/m') 

591  axis([max(spatial)*[-0.1  1.1],  maxGdcn)*[0  1 .2]]);  grid; 

592  9b 

593  %  The  following  axis  manipulation  scales  die  subplot  for  better  printing. 

594  pos  =  get(gca,'posinon');  %  Tills  is  in  normalized  coordinates 

595  pos(4)=pos(4)*.85;  %  Slirink  the  height  by  a  factor  of  .85 

596  pos(2)=pos(2)  +  pos(4)*.15;%  Raise  llie  subplot  by  the  saved  height. 

597  set(gca.'position',pos); 

598  % 

599  subpIot(313).pIot(spatial4EI.'k'); 

600  ylaba('N-n/2') 

601  xlabel  ('Axial  Position  (m)') 

602  tiac('EIfromProrac') 

603  axis([max(spatial)'*[-0.1  1.1],  max(lEl)*[0  1.2]]);  grid; 

604  % 

605  %  TIe  following  axis  manipulation  scales  the  subplot  for  better  printing, 

606  pos  =  gctfgca, ‘position');  %  This  is  in  normalized  coordinates 

607  pos(4)=pos(4)*.85;  %  Slirink  the  height  by  a  faaor  of  .85 

608  pos(2)=TK}s(2)  +  pos(4)*.l 5;%  Raise  the  subplot  by  the  saved  height. 

609  set(gca, 'position', pos); 

610  % 

611  end 

612  % 

613  coindx  =  [];  lobindx  =  [];  loblden  =  [];  lobspat  =  [];  nbi  =  []; 

614  nbmass  =  [];  nbmasseng  =  |  j;  nbx  =  [];  den  =  [];  pos  =  [];  psf  =  []; 

615  robindx  =  [];  roblden  =  [];  robspai  =  [];  spatindx  =  [];  Lstring  =  []; 

616  % _ 

617  %  Conqjleted: 

618  %  OLTITUT:  gm,  Iden,  lEl,  hibden,  Mextl,  Mextr,  spatial. 

619  9b . 

620  % _ 


<geamf_hybrid  jn> 

1  function  [spatial,  Idcn,  lEI,  Inbdcn,  Mextl,  Mextr,  gm]  =  geomf_hybrid(tiabcl) 

2  9b  gcamf_hybridjn 

3  %  [spatial,  Iden,  lEI,  Inbdcn,  Mextl,  Mextr,  gm]  =  gcomf_hybrid(tlabel); 

4  9b  0  This  m-file  generates  the  linear  density  and  El  for  Ron  Oast's  60mm 

5  9b  gun  system. 

6  %  o  The  geometric  information  contained  was  derived  from  Drawings 

7  9b  #  WTV-F34406  Sheets  1  &.  2. 

8  9b  o  This  file  uses: 

9  %  gcQm_scgm 

10  95j  geomjabscgjn 

11  %  geom_chcck.ni 


12  %  o  Specific  variable  definitions  arc: 

13  9b  tlabcl  <>  Enables  plotting  of  the  beam  geometry. 

14  9b  If  valid,  the  string  of  tlabel  is  incorporated  iiUo  tire  plot  to 

15  %  describe  the  beam. 

16  %  spatial  ->  Axial  position  vector,  cunently  limited  to  equally  spaced 

17  9b  position  vectors  with  position  data  of  every  dx**!!  point  such  that 

18  9b  n  SB  I:length(sp&tial)  and  length(spatial)'*dx  equals  maxfspatial). 

19  9b  lden*>Beamlitieardensity  vector  such  that  each  index  value 

20  9b  corresponds  to  the  beam  position  of  the  respective  spatial  value 

21  %  at  the  same  index. 

22  9b  lEI  ->  Similar  to  Iden  except  for  linear  El  cross-section  properties. 

23  %  Inbden  ->  Similar  to  Iden,  except  this  records  the  inertia  of  non-beam 

24  9b  masses  that  are  attached  to  tl»  beam. 

25  9b  gm  ->  Similar  to  Iden  except  tbc  columns  of  this  matrix  record  the 

26  9b  inner  and  outer  radii  respectively. 

27  %  o  Created  12  September  -  05  October  1995  by  Eric  Kathe. 

28  9b  Benet  Labs,  W alervliet  Arsenal ,  NY  1 2189-4050  <iekatiie®pica.army4nil> 

29  %  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

30  9b _ _ 

31  9b  Section  (1) 

32  9bThe^}proacbbere  will  be  to  record  the  outer  radii  of  the  bartel  in 

33  %  inches  per  each  10  mils  (ic,  0.01  in).  When  a  taper  is  encountered, 

34  9b  a  vector  decrement  method  will  be  used.  Indl  &  indr  define  the  extreme 

35  9b  indices  of  the  segment  For  example,  19  to  75  indicates  radii  beginning 

36  %ataxial  position  0.19"  amlcnding  at  0.75."  Diameters  arc  divided  by 

37  9b  two. 

38  9b  This  section  uses  gcom.segjn. 

39  %  DEFINE:  rout. 

40  %  USE;  author  provided  data  as  listed. 

41  % . 

42  9b 

43  rout  =  zeros(14500,l);  9b  Initialize  rout  vector. 

44  9b 

45  9b  A)  Chamfer  prior  to  rear  threads,  {sheet  2,  b7 } : 

46  indl  =  1; 

47  mdr  =  18: 

48  rL  =  4430/2; 

49  rR=  4.466^0; 

50  rout(indl;mdr)  =  geom_scg(ind],mdr,rL,rR); 

51  9b 

52  %  B)  Flat  prior  to  rear  threads,  (sheet  l.gS}: 

53  indl  =19; 

54  indr  =  75: 

55  rL  =4466/2; 

56  rout(indl:indr)  =  gcom_8eg(indl,indr,rL); 

57  % 

58  %  C) Threads,  (slret  1 ,  g7-8} ; 

59  indl  =76; 

60  indr  =  325; 

61  rL  =  4.670/2; 

62  rout(bdl:indr)  =  geom_8Cg(indl.indr,rL); 

63  % 

64  9b  D)  Groove  after  threads,  (sheet  1 .  g7} : 

65  indl  =326; 

66  indr  =  356; 

67  rL  =  4.47/2; 

68  rout(indl:indr)  =  gcom_8eg(ind],incir,rL); 

69  9b 

70  9b  E)  Second  chamfer,  (sheet  l,g7}: 

71  indl  =357; 

72  indr  =  368; 

73  rL  =4.756/2; 

74  rR  =  4.99^; 

75  rout(indl:indr)  =  gBom_scg(mdl,indr,rL,rR); 

76  % 

77  %  F)  Forward  flat  of  breech  area,  (slieel  1,  g7}: 

78  indl  =369; 

79  indr  =  500; 

80  rL  =4596/2; 

81  rout(indl:iiidr)  =geom_scg(indl,indr,rL); 

82  9b 

83  %  G)  First  major  segment,  (sheet  1 ,  c-d,7-5) : 

84  indl  =501; 
i85  mdr  =  3000; 

86  rL  =  5.40/2; 

87  rout(nidl:mdr)  =  gcom_8cg(indl,indr,rL); 

88  9b 

89  9b  H)  Second  major  segment  (tapered),  (sheet  1 ,  c-d,4-5}: 

90  indl  =  3001; 

91  mdr  =  4500; 

92  rL  =  5.40/2; 

93  ril  =  30(y2; 

94  rout(mdI:indr)  =  geom_8eg(indl,mdr,rL,rR); 

95  % 

96  9b  I)  Final  section,  (sheet  1,  c-d,3-l}; 

97  indl  =4501; 
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98  mdr=  14500; 

99  rL  =  3.00/2: 

100  rout(iiidl:uidr)  -  8Com_scg(iiidl,iiidr,rL): 

101  % 

102  indl  =  [];  indr  [];  rL  =  [];  rR  =  [); 

103  % _ 

104  %  Section  (2) 

105  %  The  approach  here  will  be  to  record  Qic  inner  diameters  of  tl»  barrel  in 

106  %  analogy  with  section  1 , 

107  %  DEFINE:  rin. 

108  %  USE:  rout,  author  provided  data  as  lisn:d. 

109  % . 

110  % 

111  rin  =  zeros(8izc(rout));  %  Initialize  rin  vector. 

112  % 

113  %  A)  Chamler  prior  to  rear  tliroads.  {sl»et2,  b7): 

114  indl  =  1; 

115  indr^lS; 

116  rL«a755  +  0.18)/2; 

117  =  2.755/2; 

118  riii(indl:indr)  =  gcom_§eg(indl,indr,rL,rR); 

119 

120  %  B)  Flat  prior  to  main  chamber,  (sheet  2,  b*c,7}: 

121  indl  =  19; 

122  indr  =  100; 

123  rL  =  1755A 

124  rin(indl:indr)  =  gecim_scg(indl.iiidr,rL); 

125  % 

126  %  C)  Flat  of  main  chamber.  (sIkci  2,  b-c,7}: 

127  indl  =  101; 

128  indr  =  525: 

129  rL  =  281/2; 

130  rin(indl:indr)  =  gcom_scg(indl,iiidr,rL): 

131  % 

132  %  D)  Cliamfer  prior  to  forcing  cone,  (slicet  2,  b-e.G) : 

133  indl  =  526; 

134  indr  =  536; 

135  rL  =  281/2; 

136  rR  =  2750A 

137  rin( indl: indr)  =  geom_seg(indl,indr,rL.rR); 

138  % 

139  %  E)  Flat  prior  to  forcing  cone,  {sheet  2,  b-c,6): 

140  indl  =537; 

141  indr  =  651; 

142  rL  =  2750/2; 

143  rin(indl:indr)  =  gcom_segCindl,indr,rL); 

144  % 

145  %  F)  Forcing  cone,  (sheet  2.  b-c.6} : 

146  indl  =  652; 

147  mdr  =  653: 

148  rL  =  2496/2; 

149  rR  =  23627; 

150  rin( indl: indr)  =  geom.segCindl.indr^L.rR); 

151  % 

152  %  G)  Main  barrel,  (sheet  2,  b-c,6-2): 

153  indl  =654; 

154  indr  =  14475; 

155  rL  =  23627; 

156  rin(indl:indr)  =  geoin_scg(indl.indr,rL); 

157  % 

158  %  H)  The  final  chamfer,  (shtxji  2,  b-c,2} : 

159  indl  =  14476; 

160  indr  =  14500; 

161  rL  =  2362/2; 

162  rR=  2450/2; 

163  riii( indl: indr)  =  gcom_scg(indl,indr,rL,rR); 

164  % 

165  indl  =  []■  indr  =  {];  rL  =  (];  rR  =  [1; 

166  % _ _ _ _ 

167  %  Section  (3) 

168  %  Now  lo  convert  units  to  meters,  and  create  a  corresponding  position 

169  %  vcaor  in  meters  with  indices  corresponding  to  tlic  rin  &  rout  vectors. 

170  %  DEFINE:  ns,  spatial. 

171  %  USE:  rin,  rout. 

172  %  Alter:  rin,  rout. 

173  % . 

174  % 

175  rout  =  rout*(0.0254);%  in(in/in) 

176  rin  =rin*(0.0254);%  infm/in) 

177  ns  =  lertgth(rout);%  Number  of  geometric  vector  indices. 

178  spatial  =  (l:ns)'*(l/I00)*(0.0254);%  (hiindrcdths)(in/liund)(rrt/in) 

179  % _ _ _ _ 

,180  %  Section  (4) 

181  %  Now  compute  the  cross-sectional  properties  of  llie  beam. 

182  %  Also  compute  the  total  mass  to  validate  the  geomeny. 

183  %  DEFINE:  Iden,  lEI,  mass,  masseng,  deltax. 


184  %  USE:  tin,  rout,  spatial,  author  provided  Hat?  as  listed. 

185  % . 

186  % 

187  delt«  =  mcan(diffl{spatial)>;%  m  (The  disk  thickness.) 

188  density  =  489*(0.4536)/(0.028317);%  lbm/ft3(Kg/lbm)/(m3/ft3) 

_189  %  mark's  9th,  table  page  6.44,  Carbon  steel  (0.40%  C). 

190  %  Gun  steel  4337m  close  to  4340  w/ some  X'tia  Vanadium 

191  %  added  formachmability.  (4340  ->  .38  -  ,43  %  Q 

192  Iden  =  dcnsity^i*(roul.''2  -  rin.''2);%  (Kg/n/‘3Xnn/'2) 

193  % 

194  mass  =  iuin(lden)*dcltax;  %  (Kg/m)(ra) 

195  masseng* mas8»(lA).4536);%  Kg(l/(Kg/lhm)) 

196  % 

197  B  =  (29.5*10^*6894.8;  %  lbl/in2*((N/m2)/abl/in2)) 

198  %  Private  communication  with  Dr.  Ron  Cast,  AMST A- AR-CCB-DE. 

199  %  (Shinglcy  &  Mitchell,  4th,  UblcA-18E's  for  steel  from 

200  %  29-30  Mpsi.)  (Very  beat  treat  dependent.) 

201  % 

202  lEI  =  E*(rout.M  -  rin,M)*pi/it; 

203  % 

204  density  =  [];£  =  (]; 

205  % _ 

206  %  Section  (5) 

207  %  Add  in  the  external  rigid  mass.  This  mass  is  treated  differently  than 

208  %  single  ncsi-beam  mass  (to  be  conqjutcd  in  section  6).It  will  be  treated 

209  %  as  a  lumped  inertia  and  dircedy  coupled  to  the  generalized 

210  %  coordinates  of  the  first  &  or  last  node  at  a  later  time. 

211  %  For  the  ease  of  a  left  external  mass  (Note:  r  would  be  negative): 

212  %  x(cxt)  =  x(l)-i-r*thcta(l)->dx(cxt)  =  dx(l)  +  r*dtheta(l) 

213  %  ddx(cxt)=ddx(l)  +  r*ddthcla<l).ddihcu(cxt)=ddthcta(l) 

214  %  F(l)  =  mbr*ddx(cxt),  M(1 )  =  (mext*i^2  +  Jbr)*ddthcta(cx0 

215  %  (mllml2m21m221*[ddx(l)ddtheta(l)]'  =  IF(l)M(l)]' 

216  % 

217  %  DEFINE:  Idenextl,  Idenextr,  Mextl,  Mextr,  spextl,  spextr,  massext 

218  %  USE:  deltax,  author  provided  data  as  listed. 

219  % . 

220  % 

221  massext  =  0; 

222  % 

223  %  A)  Left  external  mass:  None. 

224  Mcxtl  =  zeros(2,2): 

225  spextl  =  (j; 

226  Idenextl  =  []; 

227  massext  =  0; 

228  % 

229  %  B)  Right  external  mass:  Accelerator  Unit  from  3“  prior  to  muzzle  to  38" 

230  %  (From  Pat  Vottis,  09  August  1995.) 

231  % 

232  %  Initialize: 

233  Mextr  =  zcro8(2,2); 

234  rextl  =  max(spalial)  -  3*(0.0254);%  in*(in4n) 

235  icxtr  =  max(spatial)  +  38*(0.0254);%  m*(m/m) 

236  iexU  =  floar(rextl/dcltax  +  l^);%  Round  to  nearest  increment  of  deltax. 

237  icxtr  =  flooKrextr/dcltax  +  V4); 

238  spextr  =  deltax*(iexil:icxtr)'; 

239  Idenextr  =2eros(8ize(8pextr)); 

240  massext  =  0; 

241  % 

242  %RcarNut: 

243  mext  =  34*(04536);%lhm*(Kg/lbm) 

244  rext  =  0*(0.0254):%  m*<m/m) 

245  bext  =  5*(0.0254>;%in*(m/in) 

246  hext  =  5*(0.0254);%  ia*<m/m) 

247  Jext  =  mext*(l/12)  •(bcxt^2+bcxt^2); 

248  Mextr  =  Mextr  +  [mext  mext*rext;  mext*rext  (Jext  +  roext*rext^2)]; 

249  Iy,indl]  =  min(  ab8(spextr  -  max(spatiai)  +  3*(0.0254))  ); 

250  [y,indrj  =  min(  abs(spextr  -  max(spatiai)  -  2*(0.0254)) ); 

251  ldenextr<indl:iDdr)  =  ldei]extr(mdl:indr)  +  ... 

_252  mext/(spexti<indr)  -  spcxtr(indl))*arxis(sizeadencxtr(indl:mdr))); 

253  % 

254  %  Casing: 

255  mcxt  =  32.4*(0.4536);%lhm*(Kg/lbm) 

256  text  =  11*(0.0254);%  m*(m/m) 

257  bext  =  22.2*(0.Q254);%  m*(m^) 

258  hext  =  7  •(0.0254);%  in*(mAn) 

259  Jext  =  mcxt*(lA2) •(bcxtA2+hcxlA2); 

260  Mextr  =  Mextr  +  (mext  mext*rcxt;  inext*rext  (Jext  +  mcxt*icx^2)]; 

261  [y,mdl]  =  inin(  ab8(spextr  -  inax(spatial)  +  0*(0.0254)) ); 

262  [y,mdr]  =  min(  ahs(spcxtr  -  max(spatial)  -  22*(0.0254)) ); 

263  ldBnBxti<mdl:iiidr)  « ldBnextr(indl:indr)  +  ... 

264  mcxt/(spexti<indr)  -  i?)extKindl))*Qncs(sizcfldciKxti<mdl;mdr))); 
.265  % 

266  %G10'b(4)&Lukt: 

267  mext  =  12.4*(04536);%  lbm*(Kg/lbm) 

268  rext  =  11  *(0.0254);%  m*(m/m) 

269  bext  =  19.4*(0.0254);%  in*(m/in) 
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7m  heyC^--?.4.*C.0.025A);% 

272  Mcxtr  =  Mcxt  +  i^xtincxlVcxt;  incxt*rcxt  (Jcxt  +  mext*rext^2)3; 

273  [y.mdl]  =  min(  abs(spcxtr  -  raax(spadal)  - 1  *(0.0254)) ); 

274  ly.indr]  *  nun(  abs(spcxtr  -  iiiax(spalial)  -  21  *(0.0254)) ); 

275  ldenexti<iD<Q:u^)  =  — 

276  mcxt/(spexti(indr)  -  spcxtj(mdl))*ones(size(ldcncxti<mdl:indr))); 

277  % 

278  %  Co2s  (12)  &  Spacer: 

279  mext=9*(0.4536);%lbrn*(Kg/lbm) 

280  rext  =  1 1  *(0.0254);% 

281  bext  =  12*(0.0254);%  in*(in/in) 

282  hcxt  =  3*(0.0254);%m*(in/ln) 

283  Jcxt sinext*(l/12)*(bcxt^2+hcxt^2); 

284  Mcxtr  =  Mcxtr  +  [mcxt  rocxt*rcxt;  mexi*icxt  (Jcxt  +  mcxt*rcxt^2)l; 

285  ly.badl]  sstnin(  abs(spcxtr  -  tnax(spatial)  -  5*(0.0254)) ); 

286  [y,mdr]  »  miii(  abs(8pextr  *  iiiax(spaiial)  *  1 6*(0.0254)) ); 

287  ldcnextKindI:indr)  =ldBnextr(mdl:ir>dr)  +  ... 

288  incx^(»pcxtr(in£ir)  -  spextj(iiidl))*oncs(8izc(ldeiicxtr<mdl;indr))); 

289  % 

290  %  Forward  Nut: 

291  mcxt  =  36*(04536);%  lhm*(Kg/lbnO 

292  lext  *  22*(0.0254):% 

293  bcxt  =  5*(0.0254);%in*(in/in) 

294  text  s  5*(0.0254);% 

295  Jcxt  mext*{l/l  2)*(texl'^2+hcxiA2); 

296  Mcxtr  =  Mcxtr  +  [mcxt  inext*rcxt;  niext*rcxt  (Jcxt  +  mext*rext^2)l; 

297  [y.indl]  =  iiuii(  abs(spcxtr  -  max(spatia])  *  1 9*(0.0254)) ); 

298  [y.indr]  =  min(  abs(spcxtr  -  imx(spatial)  -  24*(0.0254)) ); 

299  ldcncxti(indl:indi)  =  ldenextr(indl:indr)  + ... 

300  mext/(spcxti(mdr)  -  spcxtr(ujdi))*ones(size(ldeiicxtr(mdl:indr))); 

301  % 

302  %  Muzzle  Extension: 

303  mcxt  =  18.2*(0.4536);%  lbin*(Kg/lbii)) 

304  rext  *305 *(0.0254);%  m*(m/in) 

305  text*  15*(0.0254);?o  m*(in/uO 

306  text  =  4*(0.0254);%  m*(nVin) 

307  Jcxt  *mcxt*(l/12)*(bexiA2+hext'\2); 

308  Mcxtr  =  Mcxtr  +  [mcxt  mext*rexi;  mext*rcxt  (Jcxt  +  mcxt*rext^2)]; 

309  [y,indl]  =  inin(  abs(spcxtr  ♦  max(spa6al)  -  23*(0.0254))  ); 

310  [y.mdr]  =  min(  abs(spcxtr  -  max(spalkl)  -  38*(0.0254)) ); 

311  ldcncxtr(indl:indr)  =ldeitexlr(indl:indr)  +  ... 

312  mcxt/(spextr(indr)  -  spexu(iiidl))*oncs(si2e(ldcii£;xti<indl:indr))); 

313  % _ 

314  %  Section  (6) 

315  %  Add  in  non-beam  masses.  (Since  this  data  is  not  often  directly  on 

316  %  drawings,  Ite  nearest  indices  of  spatial  arc  found  from  positions 

317  %  expressed  in  general  units  of  measure,  rather  than  indices  directly.) 

318  %  Also  conrpute  the  total  non- beam  mass  to  validate  the  geometry. 

319  %  This  section  uses  geom_nbscg.m. 

320  %  DEFINE:  Inbdcn,  massnb. 

321  %  USE:  dcllax,  ns,  spatial,  author  provided  data  as  listed. 

322  % . 

323  % 

324  Inbdcn  s=  2cros(ns,l);  %  Initialize  Inbden  vector. 

325  % 

326  %  A)  The  Breech,  mb  =s  50S,  located  0.75"  RfT  spread  over  15". 

327  % 

328  massnb  *  50*(0.4536);%  lbm*(Kg/lbm)  Non  team  mass. 

329  posl  *  (0.01)*  (0.0254);%  miia/m)  Left  most  position  of  distribution. 

330  posr  *  (1 50)*(0.0254);%  in(m/in)  RigJit  most  position  of  distribution. 

331  % 

332  %  Identify  indices  of  lennb  and  effective  linear  density  of  mnb. 

333  [indi,indr4nbdcnseg]  =gcom_nbseg(posl,posr,massnb, spatial); 

334  % 

335  %  The  non-team  mass  is  now  added  into  the  Inbdcn  vector: 

336  lnbdcn(indl:indT)  *  lnbdcn(iiidl:mdr)  +  Inbdcnscg; 

337  % 

338  %  B)  No  additional  non-beam  masses.  Sum  up  total  mass. 

339  % 

340  massnb  *  (sumOnbdcn)+sum(ldcncxtl)-t-suraGdcix:xlr))*dcltax; 

341  % 

342  % 

343  indl  =  [];  indr  =  [];  Inbderucg  =  [];  posl  =  [];  posr  =  []; 

344  % _ 

345  ?o  Section  (7) 

346  %  Define  the  geometry  matrix.  (Used  for  plotting.) 

347  %  DEFINE:  gm. 

348  %  USE:  rin,  rout. 

349  % . 

350  % 

351  gm*  [rin  rout]; 

352  % _ 

353  %  Section  (8) 

354  %  If  flag  is  set,  plot  the  property  vectors  and  geometric  matrix  for 

355  %  visual  inspection  in  the  current  figure  window.  (Note:  in  order  to 


356  %  preserve  the  visual  inspection,  the  non-team  nrnsscs  are  {dotted 

357  %  within  the  confines  of  the  geometry  matrix.  Otherwise  the  visual 

358  %  validatioa  of  linear  team  density  could  be  obscured.) 

359  %  USE:  deltax,  lEI,  gm,  Iden,  Inbdcn,  spatial,  tlabel. 

360  % . 

361  % 

362  ifnargin**! 

363  clg 

364  % 

365  %  A)  Determiite  if  tlabel  is  a  valid  title  string  or  apply  default: 

366  % 

367  ifi88ti<Uatel);%Ctecks  to  see  if  tlabel  is  a  siring. 

368  liabcl(l)  =  uppcKtiabcKl));  %>  Imposes  uppercase  on  first  letter. 

369  else 

370  tlabel  *  ["Hybrid  600^1;%  Default  is  used  if  no  valid  tlabel  given. 

371  end 

372  % 

373  %  B)  Combine  external  and  non  team  masses  into  one  vector: 

374  % 

375  nbodden  » lnbden;%  Initialize  the  combined  external  and  non  team 

376  %  mass  vector  that  is  within  the  confines  of  the  beam  gpometiy. 

377  % 

378  Icdrindx  s  find(spextl  <  deltax);%  Left  of  beam  index. 

379  lobepat  =:  spexdQobindx);%  Left  of  beam  spatial  vector. 

380  loUden  *  ldencxdQobin^):%  Left  of  beam  linear  density. 

381  coindx  *  find(8pextl  deltax);%  Index  of  Idenextl  within  team. 

382  ipatindx  *  (1  deiigth(coindx))';%  Indices  of  Idenextl  in  tenns  of 

383  %  spatial,  within  beam. 

384  %  Now  combine  the  left  external  and  non  team  linear  density  that 

385  %  coexists  within  the  confines  of  the  beam  geometry. 

386  nbxldcn(spatindx)  =  nbxldcn(spatindx)  +  Idenextl(coindx); 

387  % 

388  robindx  *  find(spextr  >  max(spa6a]));%  Right  of  beam  index. 

389  rob8{>at  *  spoxtrCrobindx) ;%  Right  of  beam  spatial  vector. 

390  roblden  *  ld6nextr(rabindx) ;%  Right  of  beam  linear  density. 

391  coindx  =  Cnd(fpcxtr  <=  max(8patial));%  Index  of  Idenextr  within  beam. 

392  spatindx  *  ((ns-lengthfcoindx)-*- 1  );ns)' ;%  Indices  of  Idenextr  in  terms  of 

393  %  spatial,  within  beam. 

394  %  Now  combine  the  right  external  and  non  team  linear  density  that 

395  %  coexists  within  the  confines  of  the  beam  geometry. 

396  nbxlden(spatindx)  =  nbxlden(s{)atindx)  -f  ldenextr(coindx); 

397  % 

398  %  C)  Determine  {dotting  scale  to  force  external  and  non  team  densities 
.399  %  to  be  {dotted  within  the  confines  of  the  beam  geometry. 

400  % 

401  nbi  =  find(Dbxlden);%  Find  external  &  non  team  density  index  locus. 

402  psf  =  (0.50)*inin(  min(gm(nbi,:)')'.Aibxlden(nbi) );%  Plot  scale  factor. 

403  % 

404  %  D)  Combine  external  and  non  beam  mass  totals: 

405  % 

406  nbmass  *  (8um(Inbden)-fsum0denextl)-^sum(ldenextr))* deltax; 

407  nbmasseng  *  nbmass*(l/D.4536);  %  (Kg)(l/(Kg/lbm)) 

408  % 

409  %  E)  Plot  results: 

410  % 

411  sub]dot(311),  piot(spatia],gm,V);  hold  on 

412  plot(^tial,-gm,Y); 

413  sttem(Bpatial(nbi).psf*iibxIden(nbl)); 

414  8tezn(s{»tial(nbi),-psf*nbxlden(nbi)); 

415  stem(lob8i)at,l»f*loblden);  stem(lob8pat,-psf*loblden); 

416  stem(robspat,{wf*robldcn);  stem(robspat,-psf*robldcn); 

417  hold  off 

418  tstring  *  [tlabel' Profile  &  Non  beam  Mas*s  Versus  Length'... 

419  'in  Meters,  (Total  Non  team  Mass  of... 

420  num2str(nbmass) '  Kg,  or  *  num2str(nbmasseng) '  Ibm)’]; 

421  title(tstring) 

422  ylabcK'm’) 

423  8xis([niax(s{>atial)*[-0.1  15J,  max(rout)*[-1.2 1 .2]]);  grid; 

424  % 

425  %  The  following  axis  manipulation  scales  the  subplot  for  better  printing. 

426  {xjs  *  gct(gca,*{>osition') ;  %  This  is  in  normalized  coordinates 

427  pos(4)*{XM<4)*.85;  %  Shrink  the  height  by  a  factor  of  .85 

428  pos(2)^x}s(2)  +  {X}s(4)*.15;%  Raise  die  subjdot  by  the  saved  height. 

429  set(gca,'{x>8itian',{>os); 

.430  % 

431  subplot(312),  plot(s{)atialJden,'k'); 

432  tstring  =  ["Linear  Density  fimn  Profile,  (Total  Mass  of  Beam* ... 

433  num2str(ma5s) '  Kg,  or '  nutn2str(masscng)  ‘  Ibm)']; 

434  title(tstring) 

435  ylatel('Kg/m*) 

436  axis([max(spatial)*[-0.1  1.3],  inaxOdcn)*[0 1 .2]]);  grid; 

437  % 

.438  %  The  following  axis  manipulation  scales  the  subplot  for  tetter  {printing. 

439  {xs  =  getfgca.'position');  %  This  is  in  normalized  coordinates 

440  pos(4)=poB(4)*.85;  %  Shrink  the  height  by  a  faaor  of  .85 

441  pos(2)={X)s(2)  +  {K)8(4)*.15;%  Raise  the  subplot  by  the  saved  height. 
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442  set(gca, 'position' ,pos); 

443  % 

444  8ul^lot(313),plot(spalialJEI,‘k.'); 

445  ylabcIC‘N-m^2') 

446  xlabclC Axial  Position  (m)') 

447  tiilcCEI&om  Profile') 

44S  axis([niax(spatial)*{*0.1 1.3],  xiiaxflEI)*IO  1.2]]);  grid; 

449  % 

450  %  Tlic  following  axis  manipulation  scales  the  subplot  for  better  printing. 

451  pos  =  getfgca.’posidon’);  %  lliis  is  in  normalized  coordinates 

452  pos(4)=pos(4)*.85;  %  Shrinlc  the  height  fay  a  factor  of  .85 

453  pos(2)=:pos(2)  +  pos(4) *.l  5;%  Raise  tlie  subplot  by  the  saved  height. 

454  sct(gca, “position', pos); 

455  % 

456  end 

457  % 

458  colndx  =:  [];  lobindx  =  [];  loblden  =  [];  lobspat  =  [];  nbi  =  []; 

459  nhmass  =  [];  nbmasseng  =  (];  nbx  =  [];  den  *  [];  pos  =  (];  psf  =  [J; 

460  robindx  =  [];  robldcn  =  [];  robspat  =  [];  spatindx  [];  tsiring  =  []; 

461  % _ _ 

462  %  Ccai^lelcd: 

463  %  OUTPUT:  gm,  Iden,  lEI,  Inbden,  Mextl,  Mextr,  spatial. 

464  % . 


61  % 

62  nel  =  74;%  Number  of  elements. 

63  % 

64  [ucord]  =  £em_mesh(5patial4dcndEI,zeros(size(lnbdcn)),snlv^l); 

65  % _ 

66  %  Section  (3) 

67  %  Generate  the  beam-only  mass  and  stlfhoess  matrices  via  FEM. 

68  %  DEFINE:  Mfcra.Kfcra. 

69  %  USE:  spatial,  Iden,  lEI,  ncord,  tlabcl 

70  % . 

71  % 

72  [Mfiem.Kfcm]  »=  fiem_fonn(fpatial4den,lEI,zcros(auEc0dcn)),ncord); 

73  %  M&m  &  Kfom  are  out-put  mass  and  stiffness  matrices.  Tboncmrbeam 

74  %  lincardensity  vector  is  set  to  zero,  to  consider  just  the  barrel. 

75  % _ _ _ 

76  %  Section  (4) 

77  %  Generate  the  hee-fiee  system  constraints  (zero) . 

78  %  DEFINE:  coEistraixitm. 

79  %  USE:  author  supplied  data. 

80  % . 

81  % 

82  kenst  =  [0;  0];%  Set  constraint  springs  to  zero  column  vector. 

83  % 


<hylwid60jn> 

1  %  hybrid60jn  ->  A  working  script  M-file  to  execute  analysis  of  the  hybrid 

2  %  60mm  gun  using  the  finite  element  formulation  and  dynamics  analysis 

3  %  functions  defined  within  tlic  subdirectory,  beam_fem/, 

4  %  o  Created  02  January  -  09  January  1996  by  Eric  Kailie. 

5  %  Benet  Labs,  WateivUci  Arsenal,  NY  12189*4050  <ekathe<S)pica.armyjnU> 

6  %  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

7 

8  % _ _ 

9  %  Section  (1) 

10  %  Set  the  plot  and  print  flags  on  or  off,  run  the  geometry 

11  %m*Qlc,  and  create  a  plot  label. 

12  %  DEFINE:  tlabcl,  spatial,  Iden,  lEl,  Inbden,  Mextl.  Mextr,  gm. 

13  % . 

14  % 

15  %  Set  plot  and  print  flags  to  1  to  cimblc,  zero  to  disable . 

16  plot_on=i; 

17  print^on  =  0; 

18  % 

19  ifprinl_Qn  =  l 

20  plot_on  =:  1;  %  Clearly,  to  print,  lIjc  plot  flag  must  be  enabled. 

21  end 

22  % 

23  tlabcl  =  'Hybrid  60mm';%  tlabcl  ->  Enables  plotting.  If  valid,  flic 

24  %  string  of  Uabel  is  incorporated  into  the  plot  to  describe  the  beam, 

25  % 

26  ifplot_on=l 

27  figuic(l) 

28  dg 

29  sct(gcf,'PapcrOricniation', ‘portrait');  %  This  series  of  commands  configures 

30  sctCgcf.'PapcrUniisVhtchcs');  %  flic  plot  window  to  effectively 

31  set(gcf,'PapcrPosition',Il  1  6.5  4.5]);  %  be  incorporated  into  a  report, 

32  sct(gcf,'Unils','inches','posilion',gel(gcf,'PapcrPosiiion')); 

33  sct(gcf,'De£auitAxcsFontSizc’,9); 

34  [spatial,  Iden,  lEI,  Inbden,  Mextl,  Mextr,  gm]  =  gcomf_hybrid(flabcl); 

35  else 

36  [spatial,  Iden,  lEl,  Inbden,  MexU,  Mextr,  gm]  «  gcoinf_hybrid; 

37  end 

38  %  spatial  •>  Axial  position  vector. 

39  %  Iden  *>  Beam  linear  density  vcctcu. 

40  %  lEI ->  Similar  to  Iden  except  for  linear  El  cross-section  properties. 

41  %  inbden  ->  'fhe  inertia  of  non-beam  masses  atladied  to  the  beam, 

42  %  Mextl,  Mextr  •>  2x2  sub  matrices  of  left  and  right  extreme  rigid  body 

43  %  inertia. 

44  %  gm  ->  The  columns  of  this  matrix  record  the  inner  and  outer  radii. 

45  if  prini_on  =  1 

46  print  -deps  figi  S.ps;  %  Print  the  file  as  an  encapsulated  Post-Scr^l  file. 

47  end 

48  % 

49  % _ 

50  %  Section  (2) 

51  %  Define  barrel  constraint  locations,  number  of  elements,  and  create 

52  %  clement  mesh  vector. 

53  %  DEFINE:  snlv,  ncord. 

54  %  USE:  spatial,  Iden,  lEI,  Inbden,  snlv,  tlabcl,  Author  supplied 

55  %  data,  Author  supplied  default  value. 

56  % . 

57  % 

58  hangl  **  15*(0.0254);%  in(irr/in)  Location  of  hanger  1 .  near  breach. 

59  hang2  =  100*(0.0254);%  in(m/in)  Location  of  hanger  2,  near  muzzle. 

60  snlv  =  [hangl;  hang2];%  (m)  Imposed  node  location  vector. 


86  [y,  kl]  =  min<abs(snlv(l)  -  8patial(ncord)));%  Identification  of 

87  [y,  k2]  =  min(ab8(snlv(2)  -  spatial(ncord)));%  constraint  node  number. 

88  % 

89  geindk  =  2*[kl;k2]  -1;%  Identification  of  lateral  constraint  gciKralizcd 

90  %  coordinate  number, 

91  % 

92  constraiiitm  =  [geindk  kenst  edenst]: 

93  % 

94  kenst  =  [];  edenst  =  [];  y  =  []; kl  =  [];  k2  =  [];  geindk  =  []; 

95  % _ _ _ 

96  %  Section  (5) 

97  %  Compute  systom  matrices  without  any  external  nor  non- beam  masses. 

98  %  Also  generate  the  Rayleigh  damping  matrix. 

99  %  DEFINE:  M.K,Cd.n2. 

100  %  USE:  author  supplied  data. 

101  % . 

102  % 

103  [M.K.Cd]  =if6m_luinp(Mfcm,Kfem,zcros(2,2),zcros(2,2),0,0,canstrainlm); 

104  %  M,  K,  Cd  ->  Mass,  stiffbess,  and  zero  damping  matrices  of 

105  %  generalized  coordinates  that  include  the  constraint  and 

106  %  externally  coupled  dynamics. 

107  n2  =  size(M,l);%  The  number  of  generalized  coordinates. 

108  % 

109  % _ _ _ _ 

110  %  Section  (6) 

111  %  Generate  the  second  order,  undamped  eigen-modes. 

112  %  DEFINE:  phi,  fvn,  rlab. 

113  ?o  USE;  author  supplied  data. 

114  % . 

115  % 

116  [phi,fvn,riab]  =  cigcn_2o(M,K);%  Compute,  normalize,  sort,  and  identify 

117  %  the  modes  of  vibration. 

118  %  _ 

119  %  Section  (7) 

120  %  Import  Dr.  Cast's  Mode  shapes  &  compare  (if  available), 

121  %  DEFINE:  phi,  fvn,  ilab. 

122  %  USE:  author  supplied  data. 

123  % . 

124  % 

125  ml_phi  =  zeros(lei}gth(spatial).6);  %  Initialize  matrix  for  MATLAfi  naodes. 

126  rg_phi  =  zcrosGcngth(spatial),6);  %  Initialize  zero  matrix  if  no  modes. 

127  rgjnx  s:  spatia]/niax( spatial) ;%  Initialize  axial  position  if  no  modes. 

128  % 

129  £nodes_avail  =  1 ;%  Flag  if  Dr.  Cast's  modes  arc  available.  If  not,  set  to  0. 

130  % 

131  for  I  =  1:6 

132  if  zzKxies_avaiI  =  1 

133  cval(['load/uar^ople/usrrt/ckathc/wpfilcs/gast_hylVmodc' ... 

134  int2ati<I)  ’.asc;’]); 

135  cval([‘mat  =  mode*  inl2sti<I)  *;']); 

136  eval(['cle8r  mode'  int2«ti<I) ';']); 

137  if  1  =  1 

138  rg_phi  =  zcros(size(mat,l),6);  %  Initialize  matrix  for  modes. 

139  rg_iix  =  mat(:,l);%  Respective  axial  position  vector. 

140  end 

141  rg_phi(:,I)  =inat(:,2)|^nax(ab»(inat(:,2))); 

142  rg_phi(:,I)  =rg4jhi(:,I)/max(abs(rg_iflii(:,I))); 

143  dear  mat; 

144  end 

145  % 

146  ml_phi(:,I)  =  mode_ahapc(ncard,spatial,-phi(:,(I+2))); 
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147  =  inl_phi(:,I)Anax(abs(nj]_plij(;,I)));%  Unit  normalize. 

148  end 

149  % 

150  ml_nx  =  8patk]/inajii(spatial);%  Utiil  normalize  axial  positicn  vector. 

151  frg  =  [26.4  83.1  1874  329.5  478.2  656.4]';  %  Dr.  Cast's  frequencies. 

152  finl  ss  fvn(3:8);%  FEM  frequencies,  minus  the  first  two  rigid  body  inodes. 

153  % 

154  ifpIol_ans=  I 

155  Cgure(2) 

156  clg 

157  selCgcf.PapcrOricntation', 'portrait');  %  This  scries  of  commands  configures 

158  set(gcf,'PapcrUmls', 'inches');  %  the  plot  window  to  effectively 

159  tet(gcf,PaperPcMition’,[l  1  6,5  4.5]);  %  be  incorporated  into  a  report. 

160  8Cl(gcf,Umis','iDches‘,'posiiion',get(gcf;PaperPosilion')); 

161  sdfgcf.'DefaultAxesFantSize'.lO); 

162  D  =  0; 

163  fcrj  =  l:3 

164  fork  =  0:3:3 

165  I»j+k; 

166  n  =  n+l: 

167  subplot(3,2,n) 

168  ido^iiil_nx,inl_phi(:,I),'k;'/g_DX/g_phi(:,I),'k'); 

169  mlabel  =  rlab<I+2,find(abs(rlab(l+2,:))  ~=  32)); 

170  mlabel »  [mlabel :FEM '  num2sU<&nl(I))  Hz:']; 

171  if  raodes_avail  =  1 

172  mlabel  =  [mlabel “USM  '  nurn2str(frg(I)) '  Hz-']; 

173  end 

174  titlefnilabel) 

175  axis([-0.05  1,05 -1.05  1,05]) 

176  ifn>4 

177  xlabclCNormalized  Axial  Position’) 

178  end 

179  pos  =  gclCgca, 'position');  %  ’Ihis  is  in  normalized  coordinates 

180  pos(4)=pos(4)'^.85;  %  Sltrink  the  Icight  by  a  factor  of  .85 

181  pos(2)=pos(2)  +  pos(4)*.l  5;%  Raise  tlx:  subplot  by  the  saved  height. 

182  sctfgca, 'position', pos); 

183  if  modcs_avail  =  1 

184  ifl<4 

185  IcgcndCFEM’.'USM'); 

186  end 

187  end 

188  end 

189  end 

190  if  modes_avail  =  1 

191  subuile('60nHn  Bartel  Eigenvectors  and  Frequencies  (:FEM:,  -USM-)’) 

192  else 

193  subtillc('6Qinm  Barrel  Eigenvectors  and  Frequencies') 

194  end 

195  end 

196  % 

197  if  print_on  =  1 

198  print  -dqjs  figl6.ps;  %  Print  the  file  as  an  encapsulated  Post-Script  file. 

199  end 

200  % 

201  % _ 

202  %  Section  (8) 

203  %  Generate  the  as  hung  system  constraints. 

204  %  DEFINE:  constraintm. 

205  %  USE:  author  supplied  data, 

206  % . 

207  % 

208  kenst  =  [1;  l]'*2*10''5;?o  Set  canstraint  springs  to  200,000  N/m. 

209  % 

21 0  edenst  =  0  "'kenst;  %  Zero  damping  column  vector. 

211  % 

212  [y,  kl]  =  min(abs(sn]v(l)  -  spaiial{ncord)));%  Identification  of 

213  [y,  k2j  =  min(abs(5nlv(2)  •  spaiial(ncord)));?c  consUaint  node  number. 

214  % 

215  geindk  =  2*(kl;k2]  - 1;%  Identification  of  lateral  constraint  generalized 

216  %  coordinate  number. 

217  % 

218  constraintm  =  [geindk  kcnsl  edenst}; 

219  % 

220  kcnsl  =  [];  edenst  =  [];  y  =  [];  kl  =  [];  k2  =  [];  gemdk  =  []; 

221  % _ 

222  %  Section  (9) 

223  %  Compute  system  matrices  with  all  external  and  non-beam  masses. 

224  %  DEFINE:  M,  Mfem,  K,  Kfcm,  Cd,  n2, 

225  %  USE:  author  supplied  data. 

226  % . . . 

227  % 

228  [Mfcm,Kfcm]  =  fcra_fQrm(spaiial4dcn4EI,lnbdcn,ncord); 

229  % 

230  [M,K,Cd]  =  fem_lump(MIem,Kfcm>lextl,Mcxtr, 0,0, constraintm); 

231  % 

232  n2  =  8izc(M,l);9o  The  number  of  generalized  coordinates. 


233  % 

234  % _ _ _ 

235  %  Section  (10) 

236  %  Force  due  to  gravity. 

237  %  USE:  A,  B,  C,  D. 

238  % . 

239  g  =  -9.8067 ;  %  Earth  Surface  Gravity  (m/(s^2)). 

240  weight  =  g''(lden  lnbden)*dlff(spatial(l  :2)); 

241  % 

242  %  [F]  =  fcm_force(spatial,weight,zeros(sizeOdcn))Aicord,tlabel);%  Prints  F. 

243  [F]  =  fem_farce(8patial,wei^it,zcros(size0den)),ncord); 

244  % 

245  %  Now  incorporate  the  two  2x2  rigid  body  mass  matrices  afier  checking  to 

246  %  avoid  divide  by  zero: 

247  % 

248  ifab*(Mcxti(l,l))>0 

249  F(l)  =  F(l>  +  g*MextI(l.l>;%g*Kg. 

250  F(2)  =  F(2)  +  g*(MexU(l,2)''2/Mcxtl(l,l)); %  g»(  (m*Kg)^2/Kg). 

251  end 

252  % 

253  if  abi(Mcxtr(l,l))>0 

254  F(n2.1)-P(ii2.1)-hg*Mcxtr<l.l); 

255  F(n2)  =  F(n2)  +  g*(Mcxtr(1.2)^2/Mcxtr(l,l));  %  g*(  (m*Kg)A2/Kg). 

256  end 

257  % _ 

258  %  Section  (11) 

259  %  Second  order  inverted  stiffness  approximation  to  static  gravi^  loading. 

260  %USE:KandP. 

261  % . 

262  xinvk  =  KNF;%  Ic,  since  x  ddot  ->  zeros,  K*x  =  F  ->  x  =  mv(K)''F. 

263  % _ 

264  %  Section  (12) 

265  %  Plot  the  static  gravity  deflection. 

266  %  USE:  xinvk,  gm.  spatial,  M. 

267  % . 

268  am  =  2*floor(si2c(M,l)/2); 

269  xtemp  s  xinvk(l:2:8m):%  Use  lateral  displacements  of  nodes  for  scaling. 

270  scale  =  max(abs(xteii7))/(8*max(max(gm))); 

271  av  s  [  (min(spatial)-  0.1  *max( spatial))  1  .l*max(spatial) 

272  [-15  51/1000]; 

273  % 

274  ifplot_on  =  l 

275  figurc(3) 

276  dg 

277  8ct(gcf,'PapcrOricnlation’, 'portrait');  %  This  scries  of  commands  configures 

278  sctfgcf/PapcrUmts’.'iitohcs’);  %  the  plot  window  to  effectively 

279  8c^gcf,'ftipcrPosition',[l  .75  3.75  4  2.5]);  %  be  mcoiporatcd  into  a  report. 

280  sctfgcf, Units', 'inches', '^sition',get(gcf,'F^pcrPosilian')); 

281  set(gcf,'De£aultAxesFantSize',lO); 

282  % 

283  beam_plot(ncard,spatialpdnvk,gm'*scale,canstramtm(:,l)); 

284  %  av  =  axis; 

285  %av(l)  =  -av(2)A0; 

286  axis(av) 

.287  grid 

288  titie([‘  ‘  tlabel '  Static  Gravity  Deflection']) 

289  xlabelC  Axial  Positicn  (m)') 

290  ylabelCLateral  Deflection  (m)') 

291  pos  =  gct(gca,'po8itian');  %  This  is  in  normalized  coordinates 

292  pos(2)=po8(2)+(l  -0.85)'*po8(4)/2;  %  Raise  the  subj^ot  &.  keep  it  centered. 

293  pos(4)=0.85''pos(4):  %  Shrink  the  height  by  a  factor  of  .85 

294  pos(l)=pos(l)+(l-0.85)''pos(4)/2;  %  Shift  to  the  right. 

295  set(gca, 'position', pos); 

296  end 

297  % 

298  ifprinl_on  =  l 

299  print  -deps  figlT.ps;  %  FVint  the  file  as  an  encapsulated  Post-Scr^t  file. 

300  end 

301  % _ 

302  %  Completed: 

303  % . . 


<mode_8hape.m> 

1  function  [phi]  =  modB_shapc(ncord,spatia]  ,y) 

2  %  modc_shapcjn 

3  %  []  =modc_shape(ncord,spatial,y); 

4  %  o  This  m-fiJe  generates  a  mode  shape  of  a  beam  in  its  spatial  domain. 

5  %  o  This  file  uses: 

6  %  fem_node_checkjn  in  section  1 . 

7  %  gpoin_checkjn 

8  %  &mJnlBrpjn  in  section  2. 

9  %  o  External  generalized  coordinates  may  be  include  via  extge. 

10  %  o  Specific  mput/ouqiul  variable  definitions  are: 

11  %  ncord  ->  The  vector  of  indices  such  that  spatial(ncard)  is  the  position 

1 2  %  of  each  pair  of  beam  general  ized  coordinates.  (Also  known  as  nodes.) 

13  %  spatial  ->  Axial  position  vector,  currently  limited  to  equally  spaced 
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14  %  posilion  vectors  wiih  position  data  of  every  dx  *11  point  such  that 

15  %  n  =  l:lcngth(spatial)  and  len£th(spatial)*dx  equals  iiiax(spatial). 

16  %  y ->  Output  vector.  Contains  Uie  magnitudes  of  the  displaccnrnts  and 

17  %  rotations  of  the  generalized  coordinafies.  It  is  a  vector  of  the  fcann: 

18  %  {x(l)lhcla(l)x(2)..Jt(n2)lhcia(n2)cxtgc<l)exigc(2)...cxtgc(nxgc))’. 

19  %  phi  ->  mode  shape  vector  that  conesponds  one-to-one  with  spatial. 

20  %  o  Created  3  January  1996  by  Eric  Kalhc. 

21  %  Beoet  Labs,  Wateivliet  Arsenal,  NY  12189*4050  <ekathe@pica.aimyjnil> 

22  %  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaxa 

23  % _ _ _ 

24  ?G  Section  (1) 

25  %  A  few  checks  to  be  sum  input  variables  are  the  right  size,  et  cetera. 

26  %  This  section  uses  gcam_checkjn  to  validate  the  iiqpul  geometry  vectors. 

27  %  Also  define  the  number  of  indices  of  spatial,  ns,  the  number  of  generalized 

28  %  coordinates  ngc,  et  cetera. 

29  %  DEFINE:  nel,  ngc,  nn,  ns,  nxgc. 

30  %  USE:  naxgin.ncord,  spatial,  y, 

31  %  author  provided  default  value. 

32  %  POSSIBLY  ALTBR:  ncord,  spatial ,  y . 

33  % . . . 

34  %  (A)  Check  spatial  &  ncord  &  define  their  length’s,  ns. 

35  % 

36  lncord,spatial]  =  fcm_nodc_chcck(ncord,  spatial); 

37  ns  =  length(spatial);  %  Number  of  indices  of  spatial. 

38  nn  =  length(ncord);  %  Number  of  nodes  of  ncord 

39  nel  =  nn  -  1;%  Number  of  elements  of  the  beam. 

40  % 

41  % 

42  %  (B)  Impose  column  structure  on  y,  and  deck  con.siancy  of  number  of 

43  %  generalized  coordinates. 

44  % 

45  y  =  y(:): 

46  ngc  =  lcngth(y); 

47  if  ngc  ~=  (2*1^1) 

48  if  ngc  <  2*im 

49  warning  =  [‘More  generalized  coordinates  than  tlic  number  of  outputs.*... 

50  'No  coTTectivc  action  lias  been  taken.'] 

51  elseif  nargin  =  5 

52  zgext  sa  oncs((ngc  *  2*im)il ): 

53  zgext(l  augc)  »  extgc; 

54  cxigc  5=  zgcxtfl  :(ngc  -  2*nn)); 

55  warning  =  ('Mismatched  number  of  generalized  &  or  external '... 

56  'couplings,  extgc  padded  or  truncated  to  fit.  '... 

57  ’Further  errors  are  very  likely.’] 

58  else 

59  warning  =  ('Fewer  generalized  coordinates  than  the  number  of  outputs.'... 

60  'No  corrective  action  lias  been  taken,*] 

61  end 

62  end 

63  % 

64  default  =  (];  warning  =  []; 

65  % _ _ _ 

66  %  Section  (2) 

67  %  Compute  the  beam  deflection  veclOTS  for  each  finite  element  using 

68  %  fcm_inleip an,  and  combine  into  one  beam  deflection  vector. 

69  %  DEFINE:  deflectv. 

70  %  USE:  ncord,  nn,  ns,  spatial,  y, 

71  % . 

72  % 

73  %  (A)  Initialize  deflection  vector. 

74  % 

75  deflectv  =  ZBros(sizc(spalial)): 

76  % 

77  %  (B)  For  the  first  element  of  tlic  beam. 

78  % 

79  lengvseg  =  spaiial(ncord(l  ):ncord(2));  %  Length  of  finite  element. 

80  [zplii,  zddphi]  =  fem_inicrp(leiigvseg);9t/  Zphi  contains  flic  shape  functions. 

81  % 

82  XV  =  y(l:4);%  The  deflection  of  eiemem  one  is  a  function  of  the 

83  %  state  of  both  adjacent  nodes.  In  fliis  case 

84  %  {xl,thcial,x2.thcla2}. 

85  % 

86  dcflcciv(ncard(l):ncord(2))  =  zplii'^xv; 

87  % 

88  %  ©  For  remaining  elements: 

89  % 

90  for  l=2:ncl; 

91  % 

92  Icngvaeg  =  5patial((ncord(I)+l):ncord(I+I))  -  spaflal(ncord(I)); 

93  [zphi,  zdc^lli]  =  fem_inlcip(lcngvscg); 

94  indL  =  2*I-l; 

95  imlR  =  indL  +  3; 

96  dencctv((ncord(I)+l):ncord(r+l))  =  zphi*y(indL:mdR); 

97  end 

98  % 

99  phi  =  deflectv; 


100  % 

101  I  =  (I;  indL  =  (];  indR  =  [];  xv  ss  [];  lengvseg  =  {];  zphi  =  []; 

102  zddphi  =  (]; 

103  % _ 

104  %  Completed: 

105  %  OUTPUT:  None. 

106  % . 


<rank„kijn> 

1  %  rank_kijn 

2  %  rank_kijn  ■>  A  script  M* file  that  utilizes  the  symbolic  toolbox  to 

3  %  demonstrate  the  deficient  rank  of  the  elemental 

4  %  stif&ess  matrix. 

5  %  o  Created  06  -  07  November  1995  by  Eric  Kathe, 

6  %  Benet  Labs,  Watervliet  Arsenal,  NY  12189*4050  <okaflie@pica.anziyjnil> 

7  %  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

8  % _ 

9  %  Section  (1) 

10  %  Enter  the  Hcrmite-cubic  polynomials.  (Junkins  &  Kim:  (4.101) 

11  %  DEFINE:  phil,phi2,phi3,phi4. 

12  % . . 

13  % 

14  phil  =  '1  -  3*xAy(hA2)  +  2*x'^3/(b^3)’; 

15  phi2  =  -x  -  2*h*x^2/(h^2)  +  h*x^3/(bA3)'; 

16  pha  =  '3*xA2Ah^2)  -  2*xA3/(h^3)'; 

17  phi4  =  '*h*xA2/(hA2)  +  h*xA3/(hA3)' ; 

18  % 

19  % _ _ _ _ _ _ 

20  %  Section  (2) 

21  %  Compute  the  second  spatial  derivative  pairs  of  the  (iertnite*cubic  polynomials 

22  %  as  used  in  the  integration  definition  of  the  elemental  stifSuess  values. 

23  %  Also  print  them. 

24  %  (Junkins  &  Kim:  (4.102)): 

25  %  USE:  phil,  phi2,phi3,phi4. 

26  % . . 

27  %  DISABLED:  Used  to  display  each  multiplied  pair  of  second  spatial 

28  %  differentiated  interpdation  functions. 

29  %  for  I  *1:4 

30  %  forj  =  l:i 

31  %  Ilj] 

32  %  cval((‘pretty(  cxpand(syinmuKdiff(phi‘  ini2stt<D  *,2),diff(phi' ... 

33  %  mt2str(j)  ',2))))']) 

34  %  end 

35  %  end 

36  % 

37  U(];j  =  I]; 

38  % _ 

39  %  Section  (3) 

40  %  Compute  the  first  three  independent  pairs  of  section  (2). 

41  %  DEFINE:  a.  b,g. 

42  % . 

43  % 

44  a  *  cxpand<syinmul(diff(phi  1 ,2),diff(phil  ,2))); 

45  b  =  expand(symmul(diff(phi2,2),difr(phil  ,2))); 

46  g*cxpand(syminul(diff(phi2,2),diff(piii2,2))); 

47  % _ _ _ _ 

48  %  Section  (4) 

49  %  Validate  the  following  matrix  sinplification,  smal,  clement  by  clcntent 

50  % 

51  %  Smat  is  to  be  a  simi^ificatian  of  the  multijdicd  pairs  of  second 

52  %  spatial  derivatives  of  interpolation  functions  that  are  subsequently 

53  %  r^tplied  by  the  axis!  distribution  of  elemental  stiffocss,  and  then 

54  %  integrated  &om  zero  to  the  element  length,  h,  to  fonn  the  symmetric 

55  %  elemental  stiifixss  matrix.  (See  Junkins  &  Kim:  (4.102)) 

56  % 

57  %  DEFINE:  chcckll,  clteck21,  dteck22,  chccV31,  check32,  cbeck33, 

58  %  chcck41 ,  check42,  chcck43,  check44,  smat. 

59  %  USE:  phil ,  phi2.  phi3.  phi4,  a,  b,  g. 

60  % . . 

61  % 

62  smat  *  str2mat(’(  a  -  *  Sym  ]',.,. 

63  '[  b  g  -  * 

64  '[  -a  *b  a  -  ]',... 

65  '[  (a*h*b)  (b*h-g)  -(a*h-b)  (a*h^2.2*b*h+g)  ]'); 

66  % 

67  %  Subtract  a  from  stif&ess  interpolation  pair 

68  %  of  matrix  element  (1,1): 

69  checkl  1  =  sinq^e(  symsub(  symmul(diff(phil  ,2),difi(phil,2)) ,  a) ); 

70  %  Subtract  b  from  stif&ess  interpolation  pair 

71  %  of  matrix  clement  (2,1 ): 

72  check21  =  8imple(  symsub(  symmul(diff(phi2,2),diff(phil,2)) ,  b) ); 

73  %  Subtract  g  from  stiffriess  interpolation  pair 

74  %  of  matrix  element  (2,2): 

75  chBck22  =  8imple(  symsub(  gymmul(diff(phi2,2),diff(|^,2))  ,  g) ); 

76  %  Subtract  from  stiffriess  interpolation  pair 
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77  %ofinarixdwoc?rii(3,l): 

78  checks  1  =  siinple(  syinfldd(  syminul(difr(phi3,2),diffl[pliil,2)) , a) ); 

79  %  Subtract  -b  from  sti^iess  inlcrpolalion  pair 

80  %  of  matrix  elemenl  (3,2): 

81  cbeck32=:  siiiq>le(  symadd(  sytDmiil(difI(phi3,2),difr(phi2,2)} ,  b) ); 

82  %  Subtract  a  from  stif&css  intcrpolalion  pair 

83  %  of  matrix  element  (3,3); 

84  check33  =  5iiijple(  symsuK  syinmul(dif[(phi3,2),din(plii3,2)) ,  a) ); 

85  %  Subtract  (a*h-b)  from  (4.1); 

86  check41  =  simplc(  symsuK  symmul(diff[phi4,2),diff(phil,2)) , ... 

87  iyinsub(  syramul(a,'h’)  ,b) ) ); 

88  %  Subtract  (b  •h-g)  from  stiffrxcss  inicrpol  atico  pair 

89  %  of  matrix  element  (4,2) : 

90  check42  =  5iiig3le(  8yinsub(  syimnul(diff(phi4,2),diff(phi2,2)) , ... 

91  8ym5ub(  symmul(b,'h')  ,g) ) ); 

92  %  Subtract  -<a*h-b)  fitim  stiffricss  inlcipolation  pair 

93  %ofmatrixelenjeni(4,3): 

94  chBck43  *  8in^e(  symadd(  ayinmul(diff(phi4,2),diff(plii3,2)) , ... 

95  symsuK  8ymmul(a.'h’)  ,b) ) ); 

96  %  Subtract  -(a*h^2-2*b*h+g)  from  siiffriess  inlcipolation  pair 

97  %  of  matrix  element  (4,4): 

98  check44  =  simplc(  symsub(  syinniul(diff(phi4,2),diff(plii4,2)) , ... 

99  8yinadd(symsub(syramul(a,'h'^2’),symraul(b,'2*h')),B) ) ); 

100  % 

101  _ 

102  %  Section  (5) 

103  %  Examine  results  for  errors. 

104  %USE:  chcckll,  check21,  clicck22,  check31,  clK5ck32,  clieck33, 

105  %  check41.check42.clK5ck43,clicck44. 

106  % . 

107  % 

108  cflag  =  0; 

109  erroimat  =:zcros(4,4); 
no  for  I  =  1:4 

111  forj  =  l:i 

112  eval(['chcck  =  check'  inl2str(I)  int2sti^‘) ';'}) 

113  ifcteck~='0' 

114  warning  =  ['matrix  element  ('  inl2sli(l) int2str(i) ... 

115  ')  results  in  error.’] 

116  cflag  =eflag  +  l 

1 17  crronnal(i  j)  =  1 ; 

118  ciTorTnat(j,i)  =  1; 

119  end 

120  end 

121  end 

122  ifcflag  =  0 

123  message  = '  No  errors  found.  Tlje  matrix,  smat,  wa.s  validated:' 

124  smat 

125  else 

126  warning  =  [  int2slr(eflag)  '  errors  found.  The  matrix  is  not  validated.'] 

127  smat 

128  message  =  'Error  locations  indicated  by  a  one  in  the  following  matrix.' 

129  errormat 

130  end 

131  % 

132  1  =  [];  j  =  [];  cflag  =  [];  message  =  [];  warning  =  [ ]; 

133  % _ _ _ 

134  %  Completed: 

135  % . 

136  % _ 


<ubcameigjn> 

1  fttnetion  [ccosh]  =  ubcamcig(0 

2  %  ubeameigjn 

3  ?o  [ccosh]  =  ubeaiiicig(f); 

A  %  o  This  function  numerically  computes  the  unifonn  beam  eigenvalue 

5  %  equation.  Tlie  zero  crossings  are  solutions  of  it. 

6  %  o  Created  January  1996  by  £i  ic  Katlie . 

7  %  Bcnci  Labs,  Watervliet  Arsenal,  NY  12189-4050  <ekathe@pica.army.niil> 

g  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

9 

10  ccosh  g  1  ’  cos(f).*cosh(f); 


<unifonnjn> 

1  %  uTuform-m  •>  A  working  script  M-fiJc  to  execute  analyses  of 

2  %  uniform  beams. 

3  %o  Qeated  10  January  1996  by  Eric  Kathc. 

4  %  Bcnet  Labs,  Watervliet  Arseni,  NY  12189-4050  <ckathc@pica.armyjml> 

5  gj,  aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

6 

7  % _ 

8  %  Section  (1) 

9  %  Confute  apporoximations  of  the  uniform  beam  geometry  for  finite  element 

10  %  analysis,  and  numerical  approximation  of  analytic  mode-shapes. 

11  %  DEFINE;  Xn,  L,  liio,  E,  I,  spatial,  Iden,  IE!,  Inbden,  gm. 

12  % . 

13  9b 
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%  Set  plot  and  print  flags  to  1  to  enable,  zero  to  disable. 
plot_on  =  1 ; 
prinl_on  =  0: 

% 

if  print_oo  =  1 

ploL.on  =  I ;  %  Qcarly,  to  print,  the  plot  flag  must  be  enabled, 
end 
9b 

9b  Define  a  normalize  axial  position  vector  from  0  <  x  <=  1: 

% 

Xn  =  (l:1001)’A001; 

% 

9b  Set  uniform  beam  properties  to  unity. 

9b 

L  =  l; 

rho  =  1; 

E  =  l; 

1  =  1; 

spatial  =  Jfri; 

Iden  =iho'^onBs(8ize(^atial)); 
lEI  =  E'*l'*aoe8(8ize(8patial)); 

Inbden  =  Z6ros(size0^D)); 
gm  =  oi]es(8ize(8patial)); 

% _ _ 

%  Section  (2) 

9b  Compute  Analytic  Eigenvectors  and  bending  frequencies.  Symbolic  commends 
%  to  derive  solution  are  shown. 

%  DEFINE:  fub,  ub_phi. 

%USE;  nx,  L,  rho.E.I. 

% . 

9b 

9b  (A)  Define  and  display  initial  calculatbns  and  application  of  boundary 
%  conditions. 

9b 

9b  Define  assumed  form  of  the  mode  shape  function: 

9b 

shape  =  ['Cl'*(cos(k'*x)  +  co8h(k*x))  +  C2*(cos(k*x)  -  cosh(k*x)) ' ... 

'+  C3*(8in(k*x)  +  sinh(k*x))  +  C4*(sin(k*x)  ■  siiih(k*x))']; 

9b 

%  Display  free- free  boundary  conditions,  this  solution  shows  that  C2  and 
%  C4  must  be  zero: 

% 

%  sinyle(subs(diff(shape.2),’0')) 

9b  ans  =  -2*C2*k^2 
9b  simplc(subs(diff(shapc,3),'0')) 

%  ans=-2*C4'»kA3 
%  sirnple(subs(difI(shape,2),’L’)) 

%  ans  =  (Cl*(-cos(k*L)+cosh(k*L))+C2*(-co8(k*L)-cosh(k*L))+... 

9b  C3*(.sin(k*L)+sinh(k'»L))+C4*(-sin(k*L)-sinh(k*L)))*k^2 

9b  8iiiiplc(subs(diff(shape,3),'L’)) 

9b  ans  =  (Cl*(sin(k*L)+8inh(k*L))+C2*(sjn(k*L)-sinh(k'^L))+... 

9b  C3*(-cos(k*L)+cosh(k*L))+C4*(-cos(k*L)-cosh(k*L)))*kA3 

% 

%  Define  mode  shape  with  C2  and  C4  set  to  zero; 

9b 

shapet  =  subs(subs(8hape,'0','C2'),'0','C4'); 

9b 

9b  8iiiylo(subs(dif![(8hapct,2),'L’)) 

9b  ans  =  (Cl  •(-cos(k*L)+cosh(k'»L))+C3’»(-sin(k*L)+sinh(k'^L)))*k'^2 
9b  sin]ple(subs(dif!(shapet,3),'L')) 

9b  ans  =  (Cl  ♦(sin(k*L)+8inh(k*L))+C3*(-cos(k*L)+cosb(k*L)))*kA3 
% 

9b  Define  2x2  matrix  that  when  mult^lied  by  [Cl  C3]'  results  in  [0  0]' 

%  when  the  remaining  two  boundary  conditions  are  satisfied.  This  matrix 
9b  is  assembled  by  cutd^paste  from  above  commented-cnit  fimple  commands; 

9b 

dmat  =  8ym(['[-cos(k*L)+coah(k*‘L),-8in(k*L)+8inh{k*L);'  ... 

'8in(k*L)+8inh(k'*L),-co8(k*L)-»-co9h(k'*L)l']);  %  Symbolic  form. 

9b 

9b  Evaluate  and  slmpUiy  the  eigen-determinate  for  values  of  (k*L)  that 
%  satisfy  the  remaining  two  boundary  conditions  excluding  tbe  trivial 
%  solution.  (Cl=0&C2  =  0is trivial.) 

9b 

9b  »  prctty(sinplc(dctcrm(dmat))) 

9b 

%  2-2co8(kL)cosh(kL) 

9b 

9b  For  MATLAB  to  find  the  roots  of  this  eigenvalue  problem,  the  determinate 
%  equation  must  be  imi^emcntcd  in  a  new  function  file,  <ubcaineig  jn>,  as 
9b  shown  below,  then  tite  function  <&ero>  may  be  applied  to  sdve  for  the 
%  roots  closest  to  an  initial  guess  that  must  be  provided: 

%  AAAAA _ 

9b  function  [ccosh]  =  ubcamcig(f) 

9b  9b 

9b  ccosh  =  1  -  cos(f).*cosh(f); 

%  AAAAA _ 
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100  % 

101  %  (B)  NuraericaJly  identify  the  eigenvalues: 

102  % 

103  %  For  the  uniform  beam  being  analyzed,  w  =  k''2*(E*]/rho)^i4). 

104  %  Also,  w  =:  f*(2*pi),  (radians/iiinc)  =  (cyclcsAime)*(2*pi). 

105  % 

106  %  Define  high  resolution  search  vector  that  exceeds  ilie  higlKst 

107  %  expected  rexjt  by  20%. 

108  % 

109  kig  =  ((1:1000)'/1000)*25;%  25  ~  sqrtfw  6-mode  rad/scc)*1.2 

1 10  Its  =  zcros(si2c(kig));  %  Initialize  roots  vector. 

111  % 

112  %  Find  the  roots  of  the  eigenvalue  equation  using  the  search  vector 

113  %  values  as  initial  guesses  and  compute  cyclic  feequcncics: 

114  % 

115  for  1  =  l:length(kig) 

1 16  rts(0  =  £zcro(’ubcameig'Jkig(I)); 

117  end 

118  %  plot(kig,rts) 

119  % 

120  kig(Gnd(fts  <  cps*10''2))  =  Hi  %  Extract  only  positive  values  of  interest 

121  rts(Cnd(rts<cps*10^2))  !=[];  %  by  nullifying  negative  &  zero  elements. 

122  %  plot(kig,rts) 

123  % 

124  %  Extract  first  six  mode  values  and  compute  cyclic  frequency; 

125  % 

126  ubk  =  zeros(6,l);%  Initialize  tlie  unifomi  beam  k-vcctor. 

127  % 

128  forI  =  l;6 

129  ri3  =  sort(rts); 

130  ubk(I)  =  rts(l)/L;%  Assign  sinullesi  remaining  its  value  to  current  mode. 

131  % 

132  Nullify  rts  values  iliat  are  close  to  or  less  than  ilje  current  mode: 

133  % 

134  rls(findf(rts-rls(I))<cps*10^2)))  =  []; 

135  end 

136  % 

137  wub  ~  ubk.^2*sqrl(E*I/i'ho);%  Note  die  L's  already  assumed  unity. 

138  fub  =  wulV(2*pi); 

139  % 

140  %  ®  Using  the  eigenvalues,  solve  for  die  two  remaining  mode-shape 

141  %  constants,  and  numerically  evaluate  die  uniform  beam  mode-shapes’ 

142  % 

143  ub_phi  t=  zcros(lengih{xn).6);  %  Initialfec  uniform  beam  mode-shape  matrix. 

144  % 

145  for  I  =  1:6 

146  k  =  ubk(l); 

147  % 

148  %  Numerically  evaluate  boundary  coiidilian  matrix  using  eigenvalue. 

149  % 

150  dmarn  =  [(-cos(k*L)+cosh(k*L))  (-sin(k'''L)+sinh(k*L));... 

151  (sm(k*L)+sinh(k*L)),(-cos(k*L)+cosh(k*L))]; 

152  % 

153  C3  =  1 ;  %  Set  value  for  C3  to  unity. 

154  Cl  =  •(dmain(2,2)*C3)/dmatn(2,l);%  Solve  for  Cl  using  2iid  row  of  dmatn. 

155  % 

156  if  abs(8ura(dmatn*[Cl;C3j))/max(abs([Cl:C3]))  >  10^(4) 

157  warning  =  XIniform  beam  boundary  condition  solution  may  not  be  good,' 

158  end 

159  % 

160  %  Evaluate  and  unit  normalize  mode-shape  for  solved  boundary  conditions: 

161  % 

162  msv  =  Cl  *(cos(k*xn)+cosh(k*xn))-*-C3*(sin(k*xn)+sinhCk*xn)); 

163  ub_phi(:,I)  =  msv/raax(abs(msv)); 

164  end 

165  % _ _ 

166  %  Section  (3) 

167  %  Create  beam  element  mesh  vector,  generate  finite  element  system 

168  %  matrices,  and  campulc  eigen  s>'stem. 

169  %  DEFINE:  snlv,  finl,  phi3,  ncord3,  phi20,  ncord20,  plii.  ncord. 

170  %  USE:  spatial,  Iden,  lEI,  Inbdcii. 

171  % . 

172  % 

173  snlv  =  l;%  Due  to  dre  way  <fem_mcshjn>  was  written,  a  value  must  be  passed 

174  %  for  imposed  node  locations.  Setting  it  to  one,  imposes  the  end 

175  %  of  the  beam,  this  triggers  a  warning,  but  <fcm_mcshjn>  then  works, 

176 

177  nm  »  20;%  Higliest  number  of  finite  elements  to  be  employed. 

178  finl  =  zeros(nm,6);%  initialize  estimated  frequency  matrix. 

179  % 

180  for  I  =  l:nm 

181  Dcl  =  I; 

182  iKord  =  fcm_mesh(spatial4dendEUnbden,snlvjiel); 

183  [Mfcm,K&mj  =  fcm_form(spatialddcndEIdnbdcn,ncord); 

184  [phi.fvn/lab]  =eigen_2o(Mfem,Kfem);%  Compute,  undamped  eigen  frequencies. 

185  % 


186  %  Note:  that  with  rigid  body  modes,  warnings  may  be  displayed  regarding  the 

187  %  non-orthogonality  of  the  mode-shapes,  and  a  small  imaginary  content  of  the 

188  %  zero  frequencies  is  common. 

189  % 

190  %  Extract  first  six  bending  modes.  (Note  first  two  firequcncies  correspond 

191  %  to  zcro-fiiequcncy  rigid-body  modes,  so  they  are  skipped.): 

192  % 

193  fbm  =  NaN*2ero8(l  ,8); 

194  fbm<l  :lcngth(fvn))  =  fvn';  %  This  leaves  NaN’s  where  no  frequency  is  modeled. 

195  finl(i,l:6)  =  abs(fbin(3:8));%  Estimated  first  six  bending  mode  fiequencies 

196  %  in  Hz.  Some  small  imaginary  conicnl  is  common. 

197  % 

198  ifnd=3 

199  jrfu3  »  phi;  %  Save  mode-shapes  from  3  element  approximatiaa.  This  is 

200  ncordS  =  ncord ;%  the  first  model  to  include  tin  first  6  bending  modes. 

201  end 

202  eiui 

203  % 

204  % 

205  figured) 

206  dg 

207  sct(gcf,'PaperOrientation' , ‘portrait’);  %  This  series  of  commands  configures 

208  sctfgcf.'PaperUnits’, 'inches');  %  tin  plot  window  to  effectively 

209  8et(gcf,T^niPosition’,(l  1  3.5  4]);  %  be  incorporated  iritn  g  report. 

21 0  actfgcf, XJnils*, 'inches', •j^sitkm',  gct(gcf,'PapcrPosiliao')) ; 

211  sctfgcf.'DcfaultAxesFontSizc'.lO); 

212  % 

213  pIot<[l:iim],&nl(:,l),'k',[l:nm],&nl(;,2),'k',[laim],finl(:,3),'k',.,. 

214  U3im],finl(:.4),V,{l3un],finK:.5),Vilaim]Mt.6),'k') 

215  hold  on 

216  plot((lnim].finK;,l);ko',(l3]m].&nl(:,2),*ko‘,(l3im],&nl(:,3),^o',.„ 

217  [l:nm],&nl(:.4),W,ll:nm],&iil(:.5),'ko',[l:nm],fiijl(:.6).’ko') 

218  idot<[liim],[fubfub],'k:') 

219  hold  off 

220  av  =  axis; 

221  av(2)=20; 

222  axis(av) 

223  8et(gca,'YTick',fub) 

224  ylab  = ' '; 

225  for  1  =  1:6 

226  ylab  =  8tr2rnat<ylab,  £req2str(fub(I))); 

227  end 

228  ylab(l,:)  =  n; 

229  sci(gca,'YTickLabcIs',ylab) 

230  titlcCFinitc  Element  Qmvcrgence  to  Mcxic  Frequencies  *) 

231  ylabclCFim  Six  Analytic  Bending  Modes  *) 

232  xlabclCNumbcx  of  Finite  Elements') 

233  pos  =  get(gca,'po8ition');  %  This  is  in  nonnalized  coordinates 

234  posd)=pos(l)  +  pqb(3)*.13;  %  Shift  the  subplot  to  the  right. 

235  pos(3)=po8(3)*.85;  %  Narrow  it. 

236  sctfgca, ‘position’, pos): 

237  % 

238  ml  =  [];  Mfcm  =  [];  Kfcm  =  [}:  riab  =  [);  ylab  =  []; 

239  % _ 

240  %  Section  (6) 

241  %NQtTnalizeandtruncatetln  sccondordercigcnmodcs. 

242  %  DEFINE:  phi,  fv,  fvn,  rlab. 

243  %  USE:  ncord,  ncordS,  phi,  phi3. 

244  % . 

245  % 

246  % 

247  ml_phi  =  2cro8Gcngth(xn),6); 

248  ml  j>hi3  =  2icros0ength(xn),6); 

249  ml_i*i20=zcroi(length(xn),6); 

250  % 

_251  for  I  =  1:6 

252  ml_jf^i(:,I)  »modc_sh8pc(ncQrd, spatial, pfai(:,(I+ 2))): 

253  ml_phi(:,I)  =  ml_i^(;,I)Anax(abs(ml_phi(:,l)));%  Unit  normalize. 

254  ml_phi3(:,I)  =  mode_shapc(ncord3, spatial, phi3(:, (1+2))); 

255  ml_phi3(:,I)  =  ml_phi3(:,I)/niax(abs(ml_plu3(:, !)));%  Unit  normalize. 

256  end 

257  % 

258  % 

259  % 

260  ifplot_an==l 

261  figure(2) 

262  dg 

263  sct(gcf,PapcrOrientation’, ■portrait');  %  This  rerics  of  ccminands  configures 

264  setCgcf.'PapcrUnits', 'inches’);  %  the  plot  window  to  effectively 

265  set(gcf,T^»rPositicn',[l  1  7  5]);  %  be  incorporated  into  a  report. 

266  aet(gcf,'Units'/inches','position’,gct(gcf,‘PapcrPositian')); 

267  sctfgcf.'DcfaultAxcsFantSizc'.lO); 

268  n  =  0; 

269  forj  =  li3 

270  fork  =  0:33 

271  I=j+k; 
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211. 

273  siiDpIot(3,2^) 

274  pi  ot(xn^_phi3(  :,I),'k”'  paj^_phi20(:  ,1)  ,'k*  ■ 

275  xii^4)hi(:,I);k:'ptn.ub_phi(:,I),’k'); 

276  titlc(['Beiidii>g  Mode  '  ini2stj<I) Analytic '  &cq2sir(fub(0)]) 

277  axis({-0.05  1 .05  -1 .05  1.05]) 

278  ifn>4 

279  xlabclCNormalizcd  Axial  Positiem') 

280  end 

281  pos  =  gct(gca, 'position');  %  This  is  in  normalized  coordinates 

282  po8([4])=pos(I4])*.9;  %  Shrink  the  height  by  a  factor  of  .9 

283  pos(t2])=pos([2])  +  pos([4])*.Vi;%  Raise  the  sul^lot  by  the  saved  height. 

284  po8((3])=pos([3i)*.95;  %  Shrink  the  width  by  a  factor  of  .9 

285  if  flajKn/2)  =  cciI(n/2) 

286  pos([l])=pas(Il])  +  pos([3])*.05/2;?o  Shift  the  subplot  to  the  ri^t. 

287  else 

288  po«([l])=pos((l])  -  pos((3])'''.05/2;%  Shift  the  subplot  to  the  left. 

289  end 

290  8ct(gca,'position',pos); 

291  ifl«=3 

292  legcnd(‘3  Element’ ,'20  Element',... 

293  [int2sti<nm) 'Element']  .'Analytic'); 

294  end 

295  end 

296  end 

297  8ubtitle(’Unifonn  Beam  Eigenvectors  and  Frequencies’) 

298  end 

299  % 

300  if  print_on  =  1 

301  print  -deps  fig22.ps:  %  Plrint  iJic  file  as  an  encapsulated  Post-Script  file. 

302  end 

303  % 
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